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

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

← →
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]

---

← →
begin...end ©   (2005-10-25 08:43) [6]

> XfroSt   (25.10.05 08:06) [2]

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

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

dD := IncMonth(dD, 2)

---

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

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

---

← →
MBo ©   (2005-10-25 08:57) [8]

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

---

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

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



Память: 0.46 MB
Время: 0.026 c