MinutesBetween
Coldpeer
MinutesBetween
Moduł: DateUtils
program FooApp;
{$APPTYPE CONSOLE}
uses
SysUtils, DateUtils;
var
A, B : TDateTime;
Result : Int64;
begin
A := Now;
B := EncodeDate(2007, 06, 10);
Result := MinutesBetween(A, B);
Writeln('Różnica minut: ' + IntToStr(Result));
Readln;
end.
Zobacz też: