Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

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

 
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);



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.02 c
14-80215
Clift
2004-02-05 17:38
2004.02.25
ХР


14-80282
Думкин
2004-02-04 05:59
2004.02.25
С днем рождения! 4 февраля.


14-80136
Slavik_v
2004-02-02 05:54
2004.02.25
Что за пакет ScinPackD6 и где его можно взять?


14-80242
able
2004-02-03 16:20
2004.02.25
Задержка.


1-79979
Dimich1978
2004-02-13 15:55
2004.02.25
Office & Excel