Function СТРАХОВОЙ_СТАЖ(Даты As Range) As String
    Dim Interval As Long, Y As Long, M As Long, D As Long, I As Long
    Dim arr
    If Даты.Columns.Count <> 2 Then
        MsgBox "Введен неправильный диапазон расчета", vbInformation
        Exit Function
    End If
    arr = Даты.Value
    For I = 1 To UBound(arr)
        If IsDate(arr(I, 1)) And IsDate(arr(I, 2)) Then Interval = Interval + arr(I, 2) - arr(I, 1) + 1
    Next
    Y = Int(Interval / 360)
    M = Int((Interval - (Y * 360)) / 30)
    D = Interval - Y * 360 - M * 30
    СТРАХОВОЙ_СТАЖ = Y & " лет " & M & " мес. " & D & " дн."
End Function