Работа с датой

← →
XfroSt (2005-10-24 16:23) [0]

Есть компонент as : TdateTimePicker
Есть переменая dD : Tdate,
Делаю так dD := as.date;
Как теперь мне мнипулировать с месяцами, днями и годами
К примеру мне надо прибавить ровно месяц, если прибавлять 30 дней т.е. dD := dD + 30; то на нужное число следующего месяца можем не попасть...

Есть ли более гибкий способ вычитать и складывать месяцы, и годы?

← →
Leonid Troyanovsky © (2005-10-24 16:29) [1]

> XfroSt (24.10.05 16:23)

> Как теперь мне мнипулировать с месяцами, днями и годами
> К примеру мне надо прибавить ровно месяц, если прибавлять

VCL Reference
IncMonth function & date/time routines

--
Regards, LVT.

← →
XfroSt (2005-10-25 08:06) [2]

провожу вот такую операцию (где Dt компонент TdateTimePiker):
var dD : TdateTime begin dD := Dt.DateTime; IncMonth(dD,2); end;
Но переменая dD не изменяется, месяц не прибавляется.
Почему? что я делаю не так?

← →
MBo © (2005-10-25 08:28) [3]

А если после этого измененную дату назначить пикеру?

← →
XfroSt (2005-10-25 08:39) [4]

Я ее вывожу через ShowMessage(DateToStr(dD)); собствено это мне и нужно, а она все равно таже, даже если F8 отслеживаю по строкам то вижу что после IncMonth переменая dD не изменилась......

← →
MBo © (2005-10-25 08:40) [5]

Я настаиваю на выполнении поста [3]

> XfroSt (25.10.05 08:06) [2]

IncMonth -- это функция. Изменённую дату она возвращает.

Вы результат функции чему-нибудь присвоили? Нет.

dD := IncMonth(dD, 2)

← →
XfroSt (2005-10-25 08:56) [7]

Блина вот я ступил, точно это же функция... а а а сорри, Извиняюсь, просто уже запарился....

Хех, а я и не заметил, что у тебя как процедура она используется ;)

Работа с датой Найти похожие ветки