Функция IncSecond – приращивает переменную типа TDateTime на + или - число секунд

Функция IncSecond в Delphi приращивает переменную типа TDateTime на + или - число секунд.

Функция IncSecond: Простой пример приращения и декремента

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;