Категория:
Полезные, Универсальные Функции Версии: 7.x
Функция ПересечениеОтрезков(А1, А2, Б1, Б2)
Если А1 =Б1 Тогда
Х = Мин(Б2-Б1,А2-Б1);
Х = Макс(Х,0); // если Х 0, то вернем 0
Иначе
Х = Мин(А2-А1,Б2-А1);
Х = Макс(Х,0); // если Х 0, то вернем 0
КонецЕсли;
Возврат Х;
КонецФункции