Скачать: CL | DM;

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

← →
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)

---

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

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

---

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

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

---

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

И правда :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c