IncDays(X : DateTime; Days : Integer) : DateTime
Прибавить дни

Функция IncDays увеличивает дату X на указанное в Days количество дней. Если Days меньше нуля, то функция уменьшает дату.

Пример:

Procedure OnCreate;
Var 
  DT : DateTime;
Begin
  DT := EncodeDate(2011, 2, 23); // 23-02-2011
  DT := IncDays(DT, 13);
  Warning(ToStr(DT)); // 8-03-2011
  DT := IncDays(DT, -10);
  Warning(ToStr(DT)); // 26-02-2011
End;

Смотри функции: IncMonths, IncYears.

© RTIT