| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с датой [D7, XP]
Михаил Н © (2007-03-24 17:17:00)Здравствуйте.Заранее извиняюсь за ламерский вопрос.
У меня есть переменная Adate типа Tdate. мне необходимо реализовать прибавление к этой переменной определённого количества месяцев.Напишите пример того,как это можно сделать
Германн (2007-03-25 01:42:00) [1]
> Михаил Н © (25.03.07 01:19) [6]
>
> ну а как тогда подсчитать дату,которая будет через 8 месяц
> от текущей?
>
Добрый дядя Джо тебе уже ответил: Джо © (24.03.07 17:50) [4]
Плохиш (2007-03-25 01:24:00) [2]
> Михаил Н © (24.03.07 17:34) [1]
> при выполнение операиwи Adate:= Adate1+incmonth(Adate1,Dlit)
Вот это с каким смыслом здесь написал?
Михаил Н (2007-03-25 01:19:00) [3]ну а как тогда подсчитать дату,которая будет через 8 месяц от текущей?
Anatoly Podgoretsky (2007-03-24 17:51:00) [4]> Михаил Н (24.03.2007 17:34:01) [1]
А зачем ты складываешь даты, ерунда получится.
Джо (2007-03-24 17:50:00) [5]> [1] Михаил Н © (24.03.07 17:34)
> И еще хочу добавить :
> при попытки увеличть дату на определённое количество месяцев,
> получается совсем неправильный результат.
> при выполнение операиwи Adate:=Adate1+incmonth(Adate1,Dlit)
> получаю дату увеличенную на лет 100,а не как требовалось
> 8 месяцев
ADate := IncMonth(ADate,MonthCount)
Джо (2007-03-24 17:46:00) [6]> [2] Михаил Н © (24.03.07 17:42)
> И еще один вопрос не в тему.
> какой процедурой удалить запись из типизированного файла?
Нет такой процедуры.
Михаил Н (2007-03-24 17:42:00) [7]И еще один вопрос не в тему.
какой процедурой удалить запись из типизированного файла?
Михаил Н (2007-03-24 17:34:00) [8]И еще хочу добавить :
при попытки увеличть дату на определённое количество месяцев,получается совсем неправильный результат.
при выполнение операиwи Adate:=Adate1+incmonth(Adate1,Dlit) получаю дату увеличенную на лет 100,а не как требовалось 8 месяцев
| |
