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;
|