IncMilliSecond
Модуль: DateUtils
function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;
Функция в значении даты / времени (параметр AValue ) увеличивает количество миллисекунд. Параметр ANumberOfMilliSeconds указывает количество миллисекунд для увеличения или уменьшения — значение может быть отрицательным:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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. |