Функція IncYear в Delphi збільшує змінну TDateTime на кількість років.
DateUtils unit
- function IncYear (const StartDate : TDateTime {; NumberOfYears : Integer = 1}) : TDateTime;
- function IncYear (const AValue: TDateTime; const ANumberOfYears: Integer): TDateTime;
Функція IncYear повертає значення TDateTime, яке на NumberOfYears років більше, ніж передане значення StartDateTime.
Значення збільшення є довільним (за замовчуванням 1).
Після збільшення року, якщо значення дня занадто велике для отриманого місяця/року, воно зменшується до найвищого значення отриманого місяця/року.
Примітка.
Функції DecYear немає.
Натомість, використовуйте IncMinute з негативним (від'ємним) збільшенням.
Функція IncYear: Додаємо, а потім віднімаємо 2 роки із дати
var
myDate : TDateTime;
begin
// Встановлюємо нашу дату у спеціальний день високосного року
myDate := EncodeDate(2000, 02, 29);
ShowMessage('myDate = '+DateToStr(myDate));
// Додаємо 2 роки до цієї дати
myDate := IncYear(myDate, 2);
ShowMessage('myDate + 2 years = '+DateToStr(myDate));
// Віднімаємо 2 роки із цієї дати
myDate := IncYear(myDate, -2);
ShowMessage('myDate - 2 years = '+DateToStr(myDate));
end;
Результат
myDate = 29/02/2000
myDate + 2 years = 28/02/2002
myDate - 2 years = 28/02/2000
Подібні функції, процедури та команди
IncDay — прирощує змінну типу TDateTime на + чи - число днів.
IncMinute — прирощує змінну типу TDateTime на + або - число хвилин.
IncMonth — збільшує TDateTime змінну на кілька місяців.
IncSecond — прирощує змінну типу TDateTime на + чи - число секунд.
IncMillisecond — прирощує змінну типу TDateTime на + або - число мілісекунд.
