Скачать: CL | DM;

Прибавление к дате дня/месяца   Найти похожие ветки 

← →
Ткаченко Сергей   (2003-09-03 12:07) [0]

Подскажите, как прибавить к имеющейся дате определенное число дней или месяцев.

---

← →
Smithson ©   (2003-09-03 12:11) [1]


var D: TDate;

begin
D := Now;
D := D+NumbersOfDay;
End;

C месяцами сложнее, надо знать, сколько дней в месяце... И посмотри F1 по TDateTime

---

← →
explorer ©   (2003-09-03 12:24) [2]

так же глянь ЕЩЕ:
EncodeDate()
DecodeDate()

---

← →
Anatoly Podgoretsky ©   (2003-09-03 12:25) [3]

Не важно сколько дней в месяце, важнее как посутпать с пограничными датами, например для таких дат 28/31.01.yyyy прибавить один месяц, в принципе проблемы нет, единственно должно быть соглашение по этому поводу - как быть.
Встроенная в Д6 функция приведет все эти 4 даты к 28.02. и получится парадокс, что между 28.08 и 28/31. один месяц и еще интересно будет отнять один месяц от 28.02

---

← →
Anatoly Podgoretsky ©   (2003-09-03 12:26) [4]

Бухгалтрера и финансисты для этого оперируют днями вместо месяцев.

---

← →
Amoeba   (2003-09-03 12:40) [5]

Можно воспользоваться библиотекой ESBDates: http://www.esbconsult.com.au

---

← →
wonderu   (2003-09-03 12:49) [6]

IncDay, IncMonth

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c