Public Function pfNextWorkDT(pStartDT As Date, pNumOfDay As Long) As Date

'   pStartDT = ???????????

'   pNumOfDy = ?????????????

'

'   ?????????? ???????????????????????????????????????????????????????????????????? (pStartDT + pNumOfDay)

'   ????????????????? ?????????????????????????????????????????????????? ???????????????????????? (pStartDT + pNumOfDay + wLastTotalHol)

'   ??????????????????? ???????????????????????????????????? ???????????????????????? ??????????????????????? ?????????????????????????

'   ??????????????? ?????????????????????????? ???????????????????????????? ?????????????????????????



    Dim wEndDT              As Date     ' ??????????

    Dim wDay               As Integer ' ??????????????????????????????????????? ?????????????????

    Dim wSat               As Integer ' ????????????????????????????????????????????

    Dim wSun               As Integer ' ??????????????????????????????????????????????

    Dim wTradHol            As Integer ' ?????????????????????????????????????????????????????

    Dim wTotalHol           As Integer ' ?????????????????????????????????????????????????????

    Dim wLastTotalHol       As Integer ' ??????????????? ?????????????????????

    

    wTotalHol = 0

    Do

        wLastTotalHol = wTotalHol

        wDay = pNumOfDay + wLastTotalHol

       

        wEndDT = DateAdd("d", wDay - 1, pStartDT)

       wSat = DateDiff("ww", wEndDT - 1, pStartDT, 7)

       wSun = DateDiff("ww", wEndDT - 1, pStartDT, 1)

        wTradHol = DCount("HDATE", "HolidayDate", "HDATE between #" & Format$(pStartDT, "dd-mmm-yyyy") & "# and #" & Format$(wEndDT, "dd-mmm-yyyy") & "#")

       

        wTotalHol = wSat + wSun + wTradHol

    Loop Until wTotalHol = wLastTotalHol

    pfNextWorkDT = wEndDT

End Function