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

Почему D7 неправильно вычисляет выражение. Скоро поедет крыша   Найти похожие ветки 

← →
Alex197777777777777   (2004-07-15 11:09) [0]

Переменная D должна быть отрицательной, но такого не происходит:

var
D: integer;
D1,D2:TDateTime;

begin
D1 := Form1.TableDATA.FieldByName("DATATEXT").AsDateTime;
D2 := Date;
D := Trunc(D2) - Trunc(D1) + 1;
end;

D - постоянно дает положительные числа, хотя данные в D1 и D2 обязательно должны дать отрицательный результат

---

← →
stone ©   (2004-07-15 11:18) [1]

> хотя данные в D1 и D2 обязательно должны дать отрицательный
> результат

только в случае если D1 более чем на 2 больше D2

---

← →
Alex197777777777777   (2004-07-15 11:21) [2]

Хоть на десять все равно результат положительный!!!

---

← →
Орехов Д.В.   (2004-07-15 11:21) [3]

С какого перепуга? Date - текущая дата. В таблице у тебя вряд ли будущие будут или нет? Так с чего отрицательные?

---

← →
Суслик   (2004-07-15 11:24) [4]

Очевидно, что у тебя date (это функция такая) больше чем Form1.TableDATA.FieldByName("DATATEXT").AsDateTime

---

← →
Alex197777777777777   (2004-07-15 11:24) [5]

Все разобрался, крыша точно поехала, один день до отпуска.... :-)

---

← →
Юрий Зотов ©   (2004-07-15 11:29) [6]

А виновата, как обычно, D7.

---

← →
Алхимик ©   (2004-07-15 13:03) [7]

> [6] Юрий Зотов ©   (15.07.04 11:29)
> А виновата, как обычно, D7.

Виновата просто D :)

---

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

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



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