IncMilliSecond
Moduł: DateUtils
function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;
Funkcja w wartości określającej datę/czas (parametr AValue), zwiększa ilość milisekund. Parametr ANumberOfMilliSeconds oznacza ilość milisekund do zwiększenia (lub zmniejszenia - wartość może być ujemna):
program Foo;
{$APPTYPE CONSOLE}
uses
SysUtils, DateUtils;
var
dtNow : TDateTime;
begin
dtNow := Now;
Writeln('Teraz jset: ' + TimeToStr(dtNow));
Writeln('Za 30 sekund będzie: ' + TimeToStr(IncMilliSecond(dtNow, 30000)));
Readln;
end.
Zobacz też: