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