[D.IZERTIR]

У меня есть дата и количество дней. Как получить результирующую дату сложением?

(19.09.2008 + 2 = 21.09.2008)

Конечно, с учетом високосных годов.

[lmikle]

Код:

var
  D : TDateTime;
begin
  D := Date; // "сегодня"
  D := Date + 7; // "через неделю" (семь дней)
  D := IncMonth(Date,1); // "через месяц"
  D := IncMonth(Date,-1); // "Месяц назад"
end;

Ну и самый кондовый вариант - через DecodeDate/EncodeDate - тут сам рулишь (почитай хелп по этим функциям).

[D.IZERTIR]

Спасибо, все работает