Функция IncAMonth в Delphi

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

Описание:

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

Синтаксис:

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;

Результат:

Функция IncAMonthIncAMonth в Delphi

1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (8 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий