Почему 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]

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

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

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