Справочник функций и процедур Delphi: IncMillisecond |
|
Навигация по первой букве: |
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z |
|
IncMillisecond
Функция |
Приращивает переменную типа TDateTime на + или - число миллисекунд |
DateUtils unit |
| function IncMillisecond ( const StartDateTime : TDateTime {; NumberOfMilliSeconds : Integer = 1} ) : TDateTime;
| |
|
| Описание |
Функция 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
|
| | |
Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")
|
