Функция IncYear – увеличивает TDateTime переменную на количество лет

Функция IncYear в Delphi увеличивает TDateTime переменную на количество лет.

Функция 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;