Модуль: SysUtils

Описание
Функция увеличивает или уменьшает значение даты, определенное в параметре D, на указанное в параметре NumberOfMonths количество месяцев. Если NumberOfMonths>0, то значение даты увеличивается, а если NumberOfMonths<0, то уменьшается. Значение времени, определенное в значении D, копируется в результат один к одному. Если в результирующем значении получается несуществующий день месяца (Такая ситуация возникает когда в полученном месяце дней меньше чем в исходном. Например, 31 марта), то в результат записывается последний день полученного месяца.

Пример
var
   D, Date2, Date3: TDateTime;
begin
   D:= EncodeDate(1999, 1, 31);
   Date2:= IncMonth(Date, 1);       { Date2 := '28.02.99' }
   Date3:= IncMonth(Date, -2);       { Date3 := '30.11.98' }
   MessageDlg(DateToStr(Date2)+ #13+ DateToStr(Date3), mtInformation, [mbOk], 0);
end;