[DOR]

Добрый день.

Код:

procedure Tf_Inform.JvDBDateEdit1Exit(Sender: TObject);
var
  Day, Moth, Year: Word;
  myDate : TDateTime;
begin
  DecodeDate(JvDBDateEdit1.Date, Year, Moth, Day);
  Year := Year + 1;
  Day := Day - 1;
  myDate := EncodeDate(Year, Moth, Day);
  JvDBDateEdit2.Date := myDate;
end;

Код работает когда число в JvDBDateEdit1.Date не равно 1, если же 1, то ошибка, поправьте пожалуйста код, чтобы он выдавал дату равную: JvDBDateEdit1.Date + 1 год - 1 день, т.е. сегодня 01.05.2013 нужно 30.04.2014. Спасибо.

p.s. если так

Код:

procedure Tf_Inform.JvDBDateEdit1Exit(Sender: TObject);
var
  myDate : TDateTime;
begin
  myDate := JvDBDateEdit1.Date;
  myDate := myDate + 364;
  JvDBDateEdit2.Date := myDate;
end;

то получается - 2 дня.