Содержание
IncHours(X : DateTime; Hours : Integer) : DateTime
Прибавить часы.
Функция IncHours увеличивает время X на указанное в Hours количество часов. Если Hours меньше нуля, то функция уменьшает время.
Пример: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 := IncHours(DT, 25); Warning(ToStr(DT)); // 2-01-2010 11:30:20.400 DT := IncHours(DT, -25); Warning(ToStr(DT)); // 1-01-2010 10:30:20.400 End;
Смотри функции: IncMinutes, IncSeconds, IncMilliSeconds.