AddYears(Value: DateTime; Count: Integer): DateTime;
Value - исходная дата.
Count - количество добавляемых лет.
Метод AddYears добавляет к значению исходной даты, передаваемой посредством параметра Value, указанное количество лет.
Sub Main;
Var
DT, DT1, DT2: DateTime;
Begin
DT := DateTime.Parse("01.01.2004 00:00:00");
DT1 := DateTime.AddYears(DT, 1);
DT2 := DateTime.AddYears(DT, -3);
End Sub Main;
В результате, в переменных «DT», «DT1» и «DT2» будут находиться значения:
«DT» - «01.01.2004»
«DT1» - «01.01.2005»
«DT2» - «01.01.2001»
См. также: