Прибавить дни к дате

[Герман13]

Вопрос новичка, прошу ногами больно не бить...
Имеется:
DBEdit1(DateTime) - Дата;
DBEdit2(Integer) -количество дней;
DBEdit3(Integer) - количество дней;
DBEdit4(DateTime) - дата;
Как реализовать: DBEdit4=DBEdit1+DBEdit2+DBEdit3 ?

[_SERGEYX_]

К какой таблице и к каким полям привязаны DBEdit-ы?
Допустим, таблица называется Table, поля d1,d2,d3,d4;

Table.Edit;
Table.fieldbyname('d4').AsDateTime:= Tabled1.Value+Tabled2.value+Tabled3.Value; 
Table.Post;

[Герман13]

Прошу прощения...
Д7, Access
1 -дата начала отпуска
2- кол-во суток
3 - кол-во суток на дорогу
4 - дата окончания отпуска
В dbAccess - поля 1 и 4 типа Date/Time, поля 2, 3 - типа Integer
На (DBEdit1-DBedit3) -событие "onChange"

[_SERGEYX_]

Имхо, это делается не в onChange DBEdit-а, а при
BeforePost таблицы.

procedure TForm1.ADOTable1BeforePost(DataSet: TDataSet);
begin
ADOTable1d2.Value:= ADOTable1d1.Value + ADOTable1i1.Value + ADOTable1i2.Value;
end;
// имена полей d1,i1,i2,d2

P.S. Я бы последнее поле сделал калькулируемым.
К тому, же если окончание отпуска выпадает на выходной - его нужно перенести на первый рабочий день. Наверно

[Герман13]

Спасибо, заработало.