Функція 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;