Пересечение отрезков времени

[RISagitov]

Есть ли в Excel встроенные средства для проверки, пересекаются ли отрезки времени

например одна лампочка горела в интервале времени c t1 до t2

а другая лампочка горела в интервале с t3 до t4

пересекаются ли?
и если пересекаются, то true

банально конечно можно решить, но может кто знает красивый способ

[IgorGO]

есть у меня алгоритм. все решается одной простой операцией:
если (т2-т3)*(т4-т1)
больше 0 - пересекаются
равно 0 - соприкасаются
меньше 0 - не пересекаются

решите только к чему отнести 0 - к пересекаются или не пересекаются.
а красивый или нет - Вам решать.

[RISagitov]

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

есть у меня алгоритм. все решается одной простой операцией:
если (т2-т3)*(т4-т1)
больше 0 - пересекаются
равно 0 - соприкасаются
меньше 0 - не пересекаются

решите только к чему отнести 0 - к пересекаются или не пересекаются.
а красивый или нет - Вам решать.

да, нормально, спасибо
уж лучше чем банальное

Function FuncT(t1,t2,t3,t4):Boolean
if ((t1<t3) and (t3>=t2)) xor ((t1>t3) and (t1>=t4)) then
FuncT=False
goto ex;
FuncT=True
ex:
end FuncT

[RISagitov]

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

есть у меня алгоритм. все решается одной простой операцией:
если (т2-т3)*(т4-т1)
больше 0 - пересекаются
равно 0 - соприкасаются
меньше 0 - не пересекаются

решите только к чему отнести 0 - к пересекаются или не пересекаются.
а красивый или нет - Вам решать.

Правильно ли я реализовал функцию?!
неверно работает
Вы уверены, что если больше, то пересекаются?
может наоборот?

Function CallT(t1, t2, t3, t4) As Boolean
'Функция для проверки пересечения двух диаппазонов дат
'Если есть пересечение, то выдает True
If ((t2 - t3) * (t4 - t1)) > 0 Then
CallT = True
Else
CallT = False
End If
End Function

[Казанский]

неверно работает
Вы уверены, что если больше, то пересекаются?
может наоборот?

Что мешает проверить в окне Immediate?

?callt(1,3,2,4)
True
?callt(1,5,2,4)
True
?callt(1,2,2,4)
False

Можно проще

Function CallT(t1, t2, t3, t4) As Boolean
'Функция для проверки пересечения двух диаппазонов дат
'Если есть пересечение, то выдает True
CallT = (t2 - t3) * (t4 - t1) > 0
End Function