IncSecond
Модуль: DateUtils
function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;
Функция увеличивает количество секунд в значении, указывающем дату / время (параметр AValue ). Параметр ANumberOfSeconds указывает количество секунд (возможное отрицательное значение):
|
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(IncSecond(dtNow, 30))); Readln; end. |