Delphi-Help

Описание

function IncMillisecond ( const StartDateTime : TDateTime {; NumberOfMilliSeconds : Integer = 1} ) : TDateTime;

Функция IncMillisecond возвращает значение TDateTime, которое на NumberOfMilliSeconds миллисекунд больше, чем переданное значение StartDateTime.
Год, месяц, день и значения часа увеличиваются соответствующе.
Значение приращения является произвольным (по умолчанию 1).

Пример кода

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

Примечание

Нет функции DecMillisecond.
Вместо этого, используйте IncMillisecond с отрицательным приращением.