MonthSpan

Adam Boduch
MonthSpan
Moduł: DateUtils
function MonthSpan(const ANow, AThen: TDateTime): Double;

Funkcja zwraca różnicę (w miesiącach) dwóch wartości typu TDateTime: ANow oraz AThen. W odróżnieniu od funkcji MonthsBetween, 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 := MonthSpan(Now, EncodeDate(2006, 06, 30));
  Bar := MonthsBetween(Now, EncodeDate(2006, 06, 30));
  Writeln('Różnica w miesiącach: ' + FloatToStr(Foo));
  Writeln('Różnica w miesiącach: ' + IntToStr(Bar));

  Readln;
end.

Zobacz też:

0 komentarzy