работа с датами

← →
ups:( (2002-06-14 09:55) [0]

Извините за элементарный вопрос, но второй день не могу найти ответ:
Надо получить дату на Х дней меньше известной.
Может кто поделится алгоритмом?

← →
Kaban (2002-06-14 09:55) [1]

Date1 - X

← →
ups:( (2002-06-14 10:00) [2]

[Error] Unit1.pas(127): Operator not applicable to this operand type

← →
Kaban (2002-06-14 10:04) [3]

Вы уверены? Я в этом сильно сомневаюсь. Может вы что-то не то делаете?

var Date1, Date2: TDateTime;
begin
Date1:=StrToDate("14.06.2002");
Date2:=Date1-10;
end;

← →
Lola © (2002-06-14 10:10) [4]

Абсолютно согласна с Kaban. Когда мне надо было задать дату на месяц раньше, я просто из текущей даты вычла 30.

← →
Kaban (2002-06-14 10:14) [5]

2lola
IMHO, в случае, о котором вы говорите, лучше пользоваться функцией IncMonth(Date1, -1)

Kaban
Спасибо! Век живи - век учись. Она и февраль берет в расчет?

← →
Kaban (2002-06-14 10:26) [7]

Не пробовал, но думаю да. Иначе зачем она вообще нужна. Впрочем это легко проверить.

И правда :)

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