Туплю с датами

← →
Dimich1978 © (2003-05-30 11:09) [0]

Мне надо к дате прибавить число и получить месяц, год и дату которая получилась. Прибалять надо дни.
dd/mm/yyyy
Например 10.06.2003+40дней=20.07.2003
Непойму как это сделать.
Плиз хелп.

← →
Anatoly Podgoretsky © (2003-05-30 11:11) [1]

D := D+40

← →
KoluChi © (2003-05-30 11:11) [2]

Date1 := Date2 + 40; :)

← →
sniknik © (2003-05-30 11:18) [3]

IncDay() как еще один вариант.

← →
Anatoly Podgoretsky © (2003-05-30 11:19) [4]

sniknik © (30.05.03 11:18)
Такой функции нет!!!

← →
Palladin © (2003-05-30 11:26) [5]

В D5 наверно нет, в D6 точно есть, так что да, нет :)

Все спасибо, делал все то же самое, только целое число переводил в тип даты.

Anatoly Podgoretsky © (30.05.03 11:19)
фу чуть не испугался :о) но нет нашол...

да, D6 модуль DateUtils реализация
function IncDay(const AValue: TDateTime;
const ANumberOfDays: Integer): TDateTime;
begin
Result := AValue + ANumberOfDays;
end;

(а 5-ку я уже можно сказать уже забыл, и внимания естественно на пункт в вопросе не обратил, а если бы и обратил... :о)

Туплю с датами Найти похожие ветки