Вот ведь задачка...

← →
tovSuhov © (2002-06-24 10:12) [0]

Мастера, подмогните...Что-то клинануло меня...
Необходимо определить, входит ли указанное время во времянной интервал. Когда задаваемый интервал вида 10:00 - 18:00 (т.е. его начало меньше его конца) все просто:
if ((my_time >= time_begin) and (my_time <= time_end)) then (...)
Но когда интервал такого вида : 22:00 - 6:00
Вот тут начинаются проблемы...
Может кто подскажет алгоритм?

← →
MBo © (2002-06-24 10:19) [1]

учти дату и все будет хорошо
(или прибавляй 1 при переходе суток)

← →
Kaban © (2002-06-24 10:21) [2]

Что нибудь типа:
if time_begin + my_time >= time_end then

← →
Канадин Владимир (2002-06-24 11:13) [3]

TDateTime в себе содержит день (целая часть) и время (дробная)

← →
kull © (2002-06-24 11:13) [4]

Я думаю так:

function InInterval(const my_time,time_begin,time_end: тип): Boolean; begin Result := (my_time >= time_begin) and (my_time <= time_end) or (time_begin>time_end) and (InInterval(my_time,time_begin,24:00) or InInterval(my_time,0:00,time_end)); end;

Зависит от того, конечно какого типа my_time.

← →
tovSuhov © (2002-06-24 11:17) [5]

Нет...Дело в том, что важно именно время, а не дни...
(Пишу тарификацию)
И поэтому нужно выяснить, что, к примеру, 2:00 входит в отрезок
23:00 - 6:00

← →
Kaban © (2002-06-24 11:25) [6]

Логика следующая:
if time_begin < time_end then
begin
if my_time between [time_begin, time_end] then
begin
end;
end
else
if not (my_time between [time_end, time_begin]) then
begin
end;

сделай два интервала 22-24 и 00-06

Точно!!!
Все гениальное просто! Спасибо!

Вот ведь задачка... Найти похожие ветки