Programowanie w języku Delphi

YearsBetween

  • 2010-10-31 18:27
  • 0 komentarzy
  • 895 odsłon
  • Oceń ten tekst jako pierwszy
YearsBetween
Moduł: DateUtils

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

Funkcja zwraca różnicę lat 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(2006, 06, 10);
  Result := YearsBetween(A, B);
 
  Writeln('Różnica lat: ' + IntToStr(Result));
 
  Readln;
end.


Zobacz też: