Delphi-Help

IncMonth

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

IncMonth

Описание

function IncMonth ( const StartDate : TDateTime {; NumberOfMonths : Integer = 1} ) : TDateTime;

Функция IncMonth возвращает значение TDateTime, которое на NumberOfMonths больше, чем переданное значение StartDate.
Элемент времени значения StartDate передаётся неизменным в результат.
Значение года увеличивается соответственно.
Значение приращения является произвольным (по умолчанию 1).
После приращения месяца, если значение дня слишком велико для полученного месяца/года, то оно уменьшается до самого высокого значения полученного месяца/года.

Пример кода

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

Примечание

Функции DecMonth нет.
Вместо этого, используйте IncMinute с отрицательным приращением.

Галерея Бирок для ключей с гравировкой без

Авторизация



Счетчики