MonthsBetween

MonthsBetween 

function MonthsBetween(const ANow, AThen: TDateTime): Integer;

Funkcja zwraca różnicę miesięcy pomiędzy dwoma datami typu TDateTime, przekazanymi w parametrach ANow i AThen. Oto przykład wykorzystania:

program FooApp;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
var
  A, B : TDateTime;
  Result : Integer;
begin
  A := Now;
  B := EncodeDate(2007, 06, 10);
  Result := MonthsBetween(A, B);
 
  Writeln('Różnica miesięcy: ' + IntToStr(Result));
 
  Readln;
end.


Zobacz też:

 

Kategoria: Delphi, Delphi » DateUtils, Delphi » Obliczenia

2 komentarze

Avatar: Coldpeer
Napisany 2008-01-12 16:51 przez Coldpeer

Przebudowałem tekst, teraz wygląda bardziej przystępnie.

Avatar: Oleksy_Adam
Napisany 2008-01-12 16:13 przez Oleksy_Adam

Dziwny przykład - sprawi, że używanie w kodzie stanie się nieczytelne. Rozmiar kodu taki sam, te same parametry, ten sam rezultat obliczeń - po co komplikować???

  LiczbaDni := ObliczDoWakacji(Data1, Data2);
  LiczbaDni := MonthsBeween(Data1, Data2);


Kompletnie nie mogę dojść sensu przykładu

Facebook
4programmers.net