1С 7.x : Функция переcечения отрезков

 

Функция ПересечениеОтрезков(А1, А2, Б1, Б2)

    Если А1<=Б1 Тогда

        Х = Мин(Б2-Б1,А2-Б1);

        Х = Макс(Х,0); // если Х<0, то вернем 0

 

    Иначе

        Х = Мин(А2-А1,Б2-А1);

        Х = Макс(Х,0); // если Х<0, то вернем 0

 

    КонецЕсли;

    Возврат Х;

КонецФункции