Функція IncMonth – збільшує змінну TDateTime на певну кількість місяців

Функція IncMonth в Delphi збільшує змінну TDateTime на певну кількість місяців.

Функція IncMonth: Додаємо значення до дати

var
  myDate : TDateTime;
begin
  myDate := StrToDate('31/01/2000');   // Кінець січня у високосному році
  ShowMessage('myDate = '+DateToStr(myDate));

  // Приріст на 1 (значення за замовчуванням)
  // 31-е січня 2000 ==> 31-е лютого 2000 (неправильно) ==> 29-е лютого 2000
  myDate := IncMonth(myDate);
  ShowMessage('myDate + 1 month = '+DateToStr(myDate));

  // Прирощуємо (збільшуємо) на 12 місяців
  // 29-е лютого 2000 ==> 29-е лютого 2000 (неправильно) ==> 28-е лютого 2001
  myDate := IncMonth(myDate, 12);      // Приріст на 12 місяців
  ShowMessage('myDate + 12 months = '+DateToStr(myDate));
end;