операции с датами

← →
Merry (2009-01-27 14:07) [0]

Как к дате, указанной в edit1 прибавить, например 200 дней и полученное значение послать в edit2?

← →
Sergey13 © (2009-01-27 14:09) [1]

> [0] Merry (27.01.09 14:07)
> Как к дате, указанной в edit1 прибавить, например 200 дней

Ты не поверишь +200

← →
Merry (2009-01-27 14:25) [2]

а как в var задать переменную D1 типа "дата"?
я понимаю,дальше будет так:
D1:=Edit1.AsDate+200;
Edit2.text:=datetoatr(d1);

← →
Сергей М. © (2009-01-27 14:29) [3]

var D1: TDateж

> прибавить, например 200 дней

IncDay()

← →
Jeer © (2009-01-27 14:30) [4]

> TDateж

Мда.. классный тип, почти как TПадеЖ ( скота )

← →
Merry (2009-01-27 14:39) [5]