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