Code: Select all
Program TestIncSecond;
var
  myDate : TDateTime;
begin
  myDate := Now;
  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.






