Описание |
Функция IncMillisecond возвращает значение TDateTime, которое на NumberOfMilliSeconds миллисекунд больше, чем переданное значение StartDateTime.
Год, месяц, день и значения часа увеличиваются соответствующе.
Значение приращения является произвольным (по умолчанию 1).
|
|
Примечания |
Нет функции DecMillisecond.
Вместо этого, используйте IncMillisecond с отрицательным приращением.
|
|
Похожие команды |
IncYear Увеличивает TDateTime переменную на количество лет
IncMonth Увеличивает TDateTime переменную на некоторое число месяцев
IncDay Приращивает переменную типа TDateTime на + или - число дней
IncMinute Приращивает переменную типа TDateTime на + или - число минут.
IncSecond Приращивает переменную типа TDateTime на + или - число секунд
| |
|
Пример кода : Простой пример приращения и декремента |
var
myDate : TDateTime;
begin // Устанавливаем нашу дату на начало 2006
myDate := EncodeDateTime(2006, 1, 1, 0, 0, 0, 0);
ShowMessage('моя дата = '+DateTimeToStr(myDate));
// Добавить 5000 миллисекунд к этой дате
myDate := IncMillisecond(myDate, 5000);
ShowMessage('моя дата + 5000 миллисекунд= '+DateTimeToStr(myDate));
// Вычесть 2000 миллисекунд из этой даты
myDate := IncMillisecond(myDate, -2000);
ShowMessage('моя дата - 2000 миллисекунд= '+DateTimeToStr(myDate));
end;
|
моя дата = 01/01/2006
моя дата= 01/01/2006 00:00:05
моя дата = 01/01/2006 00:00:03
|
|