Option Explicit
Option Base 1
Function fnNachisleniya(lСтавка As Long, dДатаПриёма As Date, dДатаУвольнения As Date, dГод As Long)
'aequit 29.02.2020 v.2
    Dim dДатаTemp As Date, dДатаНачалоМесяца As Date, dДатаКонецМесяца As Date
    Dim lОтработаноДнейВМесяце As Long, lРабочихДнейВМесяце As Long
    Dim СтоимостьРабочегоДня As Double, i As Long, j As Long, a()
    If dДатаУвольнения = Empty Then dДатаУвольнения = Format(Date, "DD.MM.YYYY")
    For i = 1 To 12
        If Year(dДатаУвольнения) < dГод Or Year(dДатаПриёма) > dГод Then Exit For
        lРабочихДнейВМесяце = 0
        lОтработаноДнейВМесяце = 0
        dДатаНачалоМесяца = DateSerial(dГод, i, 1)
        dДатаTemp = DateAdd("m", 1, dДатаНачалоМесяца)
        dДатаКонецМесяца = DateSerial(Year(dДатаTemp), Month(dДатаTemp), 0)
        If dДатаПриёма <= dДатаНачалоМесяца And dДатаУвольнения >= dДатаКонецМесяца Then
            ReDim Preserve a(i)
            a(i) = lСтавка
        ElseIf dДатаУвольнения < dДатаКонецМесяца And Year(dДатаУвольнения) = dГод Then
            For j = 1 To Day(dДатаКонецМесяца)
                If fnЭтоРабочийДень(DateSerial(dГод, i, j)) Then
                    lРабочихДнейВМесяце = lРабочихДнейВМесяце + 1
                End If
            Next j
            СтоимостьРабочегоДня = lСтавка / lРабочихДнейВМесяце
            For j = 1 To Day(dДатаУвольнения)
                If fnЭтоРабочийДень(DateSerial(dГод, i, j)) Then
                    lОтработаноДнейВМесяце = lОтработаноДнейВМесяце + 1
                End If
            Next j
            ReDim Preserve a(i)
            a(i) = WorksheetFunction.Round(lОтработаноДнейВМесяце * СтоимостьРабочегоДня, 2)
            Exit For
        ElseIf dДатаПриёма > dДатаНачалоМесяца And Month(dДатаПриёма) = i Then
            For j = 1 To Day(dДатаКонецМесяца)
                If fnЭтоРабочийДень(DateSerial(dГод, i, j)) Then
                    lРабочихДнейВМесяце = lРабочихДнейВМесяце + 1
                End If
            Next j
            СтоимостьРабочегоДня = lСтавка / lРабочихДнейВМесяце
            For j = Day(dДатаПриёма) To Day(dДатаКонецМесяца)
                If fnЭтоРабочийДень(DateSerial(dГод, i, j)) Then
                    lОтработаноДнейВМесяце = lОтработаноДнейВМесяце + 1
                End If
            Next j
            ReDim Preserve a(i)
            a(i) = WorksheetFunction.Round(lОтработаноДнейВМесяце * СтоимостьРабочегоДня, 2)
        End If
    Next i
    For i = 1 To 12
    Next i
    ReDim Preserve a(12)
    fnNachisleniya = a
End Function