[Den-is]

здравствуйте, кто знает как можно программно изменить дату на 3 года вперед?
например если сейчас: 21.12.2011 то нужно сделать 21.12.2014 т.е. не просто присвоить, а именно увеличить на некое кол-во

[NumLock]

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  today: TDate;
begin
  today:=Now;
  Edit1.Text:=DateToStr(today);
  today:=IncYear(today, 3);
  Edit2.Text:=DateToStr(today);
end;

[Den-is]

Спасибо огромное за помощь!

[Den-is]

Пишет Undeclared identifier 'IncYear' почему?????

[Ildar-tsr]

Сообщение от Den-is

Пишет Undeclared identifier 'IncYear' почему?????

В uses подключи DateUtils.

[Den-is]

Спасибо!!!!