Обновлено: 01 декабря, 2018

Функция IncAMonth в Delphi

Используемый модуль: SysUtils

Описание:

Изменяет заданные значения года Year, месяца Month и дня Day, добавляя к указанной дате NumberOfMonths месяцев. Число месяцев NumberOfMonths может быть отрицательным.

Синтаксис:

IncAMonth (var Year, Month, Day: Word; NumberOfMonths: Integer = 1);

Пример использования:

uses SysUtils;
...
Var
  Y ,M, D: Word;
begin
  Y:= 2013;
  M:= 1;
  D:= 30;
  IncAMonth(Y, M, D, 1);
  ShowMessage('Дату 30.01.2013 увеличили на месяц = ' + IntToStr(D)+ '.' +IntToStr(M)+ '.' +IntToStr(Y));
end;

Результат:

IncAMonth в Delphi