Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Вниз
Работа с датой Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.11.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.042 c
