Содержание
IncYears(X : DateTime; Years : Integer) : DateTime
Прибавить годы
Функция IncYears увеличивает дату X на указанное в Years количество лет. Если Years меньше нуля, то функция уменьшает дату.
Во избежание неоднозначностей день месяца всегда устанавливается на 1-ое число, потому что не все месяцы содержат 31-ое число.
Пример:Procedure OnCreate; Var DT : DateTime; Begin DT := EncodeDate(2011, 2, 23); DT := IncYears(DT, 4); Warning(ToStr(DT)); // 1-02-2015 End;
Смотри функции: IncDays, IncMonths.