|
|
IncSecond
Функция |
Приращивает переменную типа TDateTime на + или - число секунд |
DateUtils unit |
| function IncSecond ( const StartDateTime : TDateTime {; NumberOfSeconds : Integer = 1} ) : TDateTime;
| |
|
| Описание |
Функция IncSecond возвращает значение TDateTime, которое на NumberOfSeconds секунд больше, чем переданное значение StartDateTime.
Год, месяц, день и значения часа увеличиваются соответствующе.
Значение приращения является произвольным (по умолчанию 1).
|
|
| Примечания |
Функции DecSecond нет.
Вместо этого, используйте IncMinute с отрицательным приращением.
|
|
| Похожие команды |
IncYear Увеличивает TDateTime переменную на количество лет
IncMonth Увеличивает TDateTime переменную на некоторое число месяцев
IncDay Приращивает переменную типа TDateTime на + или - число дней
IncMinute Приращивает переменную типа TDateTime на + или - число минут.
IncMillisecond Приращивает переменную типа TDateTime на + или - число миллисекунд
| |
|
| Пример кода : Простой пример приращения и декремента |
var
myDate : TDateTime;
begin
// Устанавливаем нашу дату как раз перед концом 2005 года
myDate := EncodeDateTime(2005, 12, 31, 23, 59, 0, 0);
ShowMessage('myDate = '+DateTimeToStr(myDate));
// Добавляем 60 секунд к этой дате
myDate := IncSecond(myDate, 60);
ShowMessage('myDate + 100 seconds = '+DateTimeToStr(myDate));
// Вычитаем 120 секунд из этой даты
myDate := IncSecond(myDate, -120);
ShowMessage('myDate - 120 seconds = '+DateTimeToStr(myDate));
end;
|
myDate = 31/12/2005 23:59:00
myDate = 01/01/2006
myDate = 31/12/2005 23:58:00
|
| | |
Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")
|
