| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
работа с датами [D5, NT4]
ups:( © (2002-06-14 09:55:00)Извините за элементарный вопрос, но второй день не могу найти ответ:
Надо получить дату на Х дней меньше известной.
Может кто поделится алгоритмом?
Lola (2002-06-14 10:39:00) [1]И правда :)
Kaban (2002-06-14 10:26:00) [2]Не пробовал, но думаю да. Иначе зачем она вообще нужна. Впрочем это легко проверить.
Lola (2002-06-14 10:24:00) [3]Kaban
Спасибо! Век живи - век учись. Она и февраль берет в расчет?
Kaban (2002-06-14 10:14:00) [4]2lola
IMHO, в случае, о котором вы говорите, лучше пользоваться функцией IncMonth(Date1, -1)
Lola (2002-06-14 10:10:00) [5]Абсолютно согласна с Kaban. Когда мне надо было задать дату на месяц раньше, я просто из текущей даты вычла 30.
Kaban (2002-06-14 10:04:00) [6]Вы уверены? Я в этом сильно сомневаюсь. Может вы что-то не то делаете?
var Date1, Date2: TDateTime;
begin
Date1:=StrToDate("14.06.2002");
Date2:=Date1-10;
end;
ups:( (2002-06-14 10:00:00) [7][Error] Unit1.pas(127): Operator not applicable to this operand type
Kaban (2002-06-14 09:55:00) [8]Date1 - X
| |
