Функция IncDay в Delphi приращивает переменную типа TDateTime на + или - число дней.
DateUtils unit
- function IncDay (const StartDateTime : TDateTime {; NumberOfDays : Integer = 1}) : TDateTime;
- function IncDay (const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
Функция IncDay возвращает значение TDateTime, которое на NumberOfDays дней больше, чем переданное значение StartDateTime.
Год и значения месяца увеличиваются соответствующе.
Значение приращения является произвольным (по умолчанию 1).
Примечание.
Нет функции DecDay.
Вместо этого, используйте IncDay с отрицательным приращением.
Функция IncDay: Простой пример приращения и декремента
var
myDate : TDateTime;
begin
// Устанавливаем нашу дату как раз перед концом 2000 года
myDate := EncodeDate(2000, 12, 30);
ShowMessage('моя дата = '+DateToStr(myDate));
// Добавить 10 дней к этой дате
myDate := IncDay(myDate, 10);
ShowMessage('моя дата + 10 дней = '+DateToStr(myDate));
// Отнимаем 12 дней от этой даты
myDate := IncDay(myDate, -12);
ShowMessage('моя дата - 12 дней = '+DateToStr(myDate));
end;
Результат
моя дата = 30/12/2000
моя дата + 10 дней = 09/01/2001
моя дата - 12 дней = 29/12/2000
Похожие функции, процедуры и команды
IncMinute — приращивает переменную типа TDateTime на + или - число минут.
IncMonth — увеличивает TDateTime переменную на некоторое число месяцев.
IncYear — увеличивает TDateTime переменную на количество лет.
IncSecond — приращивает переменную типа TDateTime на + или - число секунд.
IncMillisecond — приращивает переменную типа TDateTime на + или - число миллисекунд.
