Delphi-Help

IncSecond

Печать
Рейтинг пользователей: / 1
ХудшийЛучший 

IncSecond

Описание

function IncSecond ( const StartDateTime : TDateTime {; NumberOfSeconds : Integer = 1} ) : TDateTime;

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

Пример кода

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

Примечание

Функции DecSecond нет.
Вместо этого, используйте IncMinute с отрицательным приращением.

Авторизация



Счетчики