IncMonths(X : DateTime; Months: Integer) : DateTime
Прибавить месяцы

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

Во избежание неоднозначностей день месяца всегда устанавливается на 1-ое число, потому что не все месяцы содержат 31-ое число.

Пример:

Procedure OnCreate;
Var 
  DT : DateTime;
Begin
  DT := EncodeDate(2011, 2, 23); // 23-02-2011
  DT := IncMonths(DT, 13);
  Warning(ToStr(DT)); // 1-03-2012
  DT := IncMonths(DT, -1);
  Warning(ToStr(DT)); // 1-01-2012
End;

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

© RTIT