[ContraVeneno]

Entonces, ¿puedo dejar la función así?:

Código Delphi [-]
function YearsBetween(const ANow, AThen: TDateTime): Integer;
Begin
 Result := Trunc((Abs(ANow - AThen)) / 365.2425);
end;