| Описание |
Функция IncMonth возвращает значение TDateTime, которое на NumberOfMonths больше, чем переданное значение StartDate.
Элемент времени значения StartDate передаётся неизменным в результат.
Значение года увеличивается соответственно.
Значение приращения является произвольным (по умолчанию 1).
После приращения месяца, если значение дня слишком велико для полученного месяца/года, то оно уменьшается до самого высокого значения полученного месяца/года.
|
|
| Примечания |
Функции DecMonth нет.
Вместо этого, используйте IncMinute с отрицательным приращением.
|
|
| Похожие команды |
IncDay Приращивает переменную типа TDateTime на + или - число дней
IncMinute Приращивает переменную типа TDateTime на + или - число минут.
IncYear Увеличивает TDateTime переменную на количество лет
IncSecond Приращивает переменную типа TDateTime на + или - число секунд
IncMillisecond Приращивает переменную типа TDateTime на + или - число миллисекунд
| |
|
| Пример кода : Добавляем значения к дате |
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;
|
myDate = 31/01/2000
myDate + 1 months = 29/02/2000
myDate + 12 months = 28/02/2001
|
|
