Есть ли в VBA функция, позволяющая определить пересечение одного диапазона дат с другим диапазоном дат? - VBA - Ответ 1023481

Public Function фПересечениеДат(DS, DF, S, F) 'возвращает длительность пересечения диапазонов в неделях
Dim SS As Date
Dim FF As Date
If IsNull(F) Then 'не финализировано
    If S <= DS Then 'проверяем факт наличия пересечения: "слева в бесконечность"
    SS = DS
    FF = DF
    ElseIf S < DF Then '"изнутри в бесконечность"
    SS = S
    FF = DF
    Else
    фПересечениеДат = -1 'нет пересечения диапазонов
    End If
Else
    If Not (DS >= F Or DF <= S) Then 'условие пересечения диапазонов (проверяем факт наличия пересечения)
        If S < DS And F <= DF Then ' пересекает только левую границу
        SS = DS
        FF = F
        ElseIf S < DS And F > DF Then ' пересекает левую и правую границы
        SS = DS
        FF = DF
        ElseIf S >= DS And F <= DF Then ' внутри
        SS = S
        FF = F
        ElseIf S >= DS And F > DF Then ' пересекает только правую границу
        SS = S
        FF = DF
        End If
    Else
    фПересечениеДат = -1
    End If
End If
'фПересечениеДат = DateDiff("ww", SS, FF, 2, 0)
If Not фПересечениеДат = -1 Then
фПересечениеДат = Abs(Int((SS - FF) / 7)) 'недели вычисляются специфически - так надо
End If
End Function

Public Function фПересечениеДат(DS As Date, DF As Date , S As Date, F As Date)

If IsNull(F) Then