YearSpan

function YearSpan(const ANow, AThen: TDateTime): Double;

Funkcja zwraca różnicę (w latach) dwóch wartości typu TDateTime: ANow oraz AThen. W odróżnieniu od funkcji YearsBetween, zwracana jest wartość typu Double która nie jest zaokrąglana:

program FooApp;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  Foo : Double;
  Bar : Integer;
begin
  Foo := YearSpan(Now, EncodeDate(2005, 06, 30));
  Bar := YearsBetween(Now, EncodeDate(2005, 06, 30));
  Writeln('Różnica w latach: ' + FloatToStr(Foo)); // np. wyświetli 1.3
  Writeln('Różnica w latach: ' + IntToStr(Bar));
 
  Readln;
end.

Zobacz też:

• YearsBetween
• MonthSpan
• DaySpan
• HourSpan
• MinuteSpan