Функция IncDay Delphi модуля DateUtils
Функция IncDay содержится в модуле DateUtils. Ее предназначение заключается в прибавлении или отнимании от выбранной даты нескольких дней.
Пример функции
В блоке Var объявляем переменную типа TDateTime.
var
myDate : TDateTime;begin
//Далее устанавливаем в эту переменную нужную дату с помощью функции EncodeDate(год, мес, чис);
myDate := EncodeDate(2017, 12, 30);
ShowMessage(‘моя дата = ‘+DateToStr(myDate));myDate := IncDay(myDate, 10);
ShowMessage(‘моя дата + 10 дней = ‘+DateToStr(myDate));myDate := IncDay(myDate, -12);
ShowMessage(‘моя дата — 12 дней = ‘+DateToStr(myDate));
end;
Результатом выполнения кода будут новые даты 29.12.2017 и 09.01.2018