Как облегчить жисть программиста?

[alexb_imported]

Цитата:

Сообщение от Sancho

но почему не работает конструкция
if not "Pisting Date" in [DateFrom..DateTo] then...
это ж ДОЛЖНО работать по определению!!!

У меня эта конструкция работает:

Вариант 1

MyDate := 151210D;
IF NOT (MyDate IN [011210D..311210D]) THEN ERROR(FORMAT(MyDate));

==> ERROR не вылетает
Вариант 2

MyDate := 150610D;
IF NOT (MyDate IN [011210D..311210D]) THEN ERROR(FORMAT(MyDate));

==> ERROR вылетает

В Вашем варианте конструкция не рабoтает, потому что очевидно DateТо меньше чем DateFrom

Вариант 3

MyDate := 151210D;
IF NOT (MyDate IN [151210D..141210D]) THEN ERROR(FORMAT(MyDate));

==> ERROR вылетает

Очевидно в конструкции [variable1..variable2] variable2 должна быть всегда больше/равна variable1, поэтому просто надо дополнить код:

IF DateТо < DateFrom THEN BEGIN
  IF NOT ("Posting Date" IN [DateТо ..DateFrom]) THEN ...
END ELSE BEGIN
  IF NOT ("Posting Date" IN [DateFrom..DateTo]) THEN ...
END;

То же самое касается например и INTEGER'a