[jhonny]

Aunque viéndolo desde otro punto de vista, la implementación de la función YearsBetween simplemente es esta:

Código Delphi [-]
 
function YearsBetween(const ANow, AThen: TDateTime): Integer;
begin
  Result := Trunc(YearSpan(ANow, AThen));
end;