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.