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