| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с датой
XfroSt © (2005-10-24 16:23:00)Есть компонент as : TdateTimePicker
Есть переменая dD : Tdate,
Делаю так dD := as.date;
Как теперь мне мнипулировать с месяцами, днями и годами
К примеру мне надо прибавить ровно месяц, если прибавлять 30 дней т.е. dD := dD + 30; то на нужное число следующего месяца можем не попасть...
Есть ли более гибкий способ вычитать и складывать месяцы, и годы?
MBo (2005-10-25 08:57:00) [1]Хех, а я и не заметил, что у тебя как процедура она используется ;)
XfroSt (2005-10-25 08:56:00) [2]Блина вот я ступил, точно это же функция... а а а сорри, Извиняюсь, просто уже запарился....
begin...end (2005-10-25 08:43:00) [3]> XfroSt (25.10.05 08:06) [2]
IncMonth -- это функция . Изменённую дату она возвращает .
Вы результат функции чему-нибудь присвоили? Нет.
dD :=IncMonth(dD, 2)
MBo (2005-10-25 08:40:00) [4]Я настаиваю на выполнении поста [3]
XfroSt (2005-10-25 08:39:00) [5]Я ее вывожу через
ShowMessage(DateToStr(dD));собствено это мне и нужно, а она все равно таже, даже если F8 отслеживаю по строкам то вижу что после IncMonth переменая dD не изменилась......
MBo (2005-10-25 08:28:00) [6]А если после этого измененную дату назначить пикеру?
XfroSt (2005-10-25 08:06:00) [7]провожу вот такую операцию (где Dt компонент TdateTimePiker):
var
dD : TdateTime
begin
dD := Dt.DateTime;
IncMonth(dD,2);
end;
Но переменая dD не изменяется, месяц не прибавляется.
Почему? что я делаю не так?
Leonid Troyanovsky (2005-10-24 16:29:00) [8]
> XfroSt (24.10.05 16:23)
> Как теперь мне мнипулировать с месяцами, днями и годами
> К примеру мне надо прибавить ровно месяц, если прибавлять
VCL Reference
IncMonth function & date/time routines
--
Regards, LVT.
| |
