IncMonth ()

Функція IncMonth (const D: TDateTime NumberOfMonths: Integer): TDateTime;
Опис

Функція збільшує або зменшує значення дати,визначене в параметрі 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;