Programowanie w języku Delphi

MilliSecondsBetween

  • 2012-12-14 13:28
  • 2 komentarze
  • 1372 odsłony
  • Oceń ten tekst jako pierwszy
MilliSecondsBetween
Moduł: DateUtils

function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

Funkcja zwraca różnicę milisekund 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 : Int64;
begin
  A := Now;
  B := EncodeDate(2007, 06, 10);
  Result := MilliSecondsBetween(A, B);
 
  Writeln('Różnica milisekund: ' + IntToStr(Result));
 
  Readln;
end.


Zobacz też:

2 komentarze

entrick 2012-02-01 14:47

Błąd w nazwie i wywołaniu funkcji - powinno być MilliSecondsBetween (przez dwa l)