кто скажет грамотный алгоритм

← →
Grinder (2004-02-12 18:44) [0]

Скажите мне.
Вот есть е меня 2 переменные TDateTime A и B. Есть ещё 2 булевы переменные Before и After.
Так вот как грамотнее выполнить слследующее?

Если after = true тогда проверяется только A с now, если before - то B с now, если after и before то A и B проверяются с now. Как такое реализовать грамотнее всего?
Может просто приведите пример кода.

← →
Verg (2004-02-12 18:51) [1]

if after then
check(A, now);
if before then
check(B, now);

> Если after = true тогда проверяется только A с now

На СПИД?

← →
Владислав (2004-02-12 18:53) [2]

Толи я туплю в конце трудового дня, толи лыжи не едут... А в чем, собственно, проблема то? Не знаете, как сравнить переменные типа TDateTime?

← →
Grinder (2004-02-12 19:05) [3]

2 Verg это не совсем так.

Дело вот в чем.

У меня сейчас код есть.
if (comparetime(starttime,now)=-1) and (comparetime(endtime,now)=1) then Result:=True;

Но тут сразу при совадении условий Result = true; А я хочу чтобы если after = true, то (comparetime(starttime,now)=-1) не проверяется, если before = true то (comparetime(endtime,now)=1) не проверяется, если оба равно труе, то вот этот код сохраняется.

← →
Владислав (2004-02-12 19:27) [4]

if after then begin ... Exit end; if before then begin ... Exit end; if (comparetime(starttime,now)=-1) and (comparetime(endtime,now)=1) then Result:=True;

← →
ЮЮ (2004-02-13 04:46) [5]

> Grinder © (12.02.04 19:05) [3]
Так тебе это и предложили. А если уж разжевать то последнеего символа, то так:

if Before then
// это сравнение будет только при Before = true
Result := (comparetime(starttime, now)= - 1)
else
// сравнение не требуется
Result := true;
if After then
// дополнительное условие, работает только при After = true
Result := Result and (comparetime(endtime, now) = 1);

кто скажет грамотный алгоритм Найти похожие ветки