Прибавление к дате дня/месяца

← →
Ткаченко Сергей (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

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