Содержание
IncSeconds(X : DateTime; Seconds : Integer) : DateTime
Прибавить секунды.
Функция IncSeconds увеличивает X на указанное в Seconds количество секунд. Если Seconds меньше нуля, то функция уменьшает дату.
Пример:Procedure OnCreate; Var DT : DateTime; Begin DT := EncodeDateTime(2010, 1, 1, 10, 30, 20, 400); Warning(ToStr(DT)); // 1-01-2010 10:30:20.400 DT := IncSeconds(DT, -5); Warning(ToStr(DT)); // 1-01-2010 11:30:15.400 DT := IncSeconds(DT, 75); Warning(ToStr(DT)); // 1-01-2010 11:31:30.400 End;
Смотри функции IncHours, IncMinutes, IncMilliSeconds.