• Home
 · 
• Miscellaneous
 · 
• This function will return the number of business days between two dates.

This function will return the number of business days between two dates.

This function will return the number of business days between two dates.

Rate This function will return the number of business days between two dates.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim tmpDay As Integer
    getBusDays = 0
    Do Until SDate = EDate
        tmpDay = Format(SDate, "w")
        Select Case tmpDay
            Case 2, 3, 4, 5, 6
                getBusDays = getBusDays + 1
        End Select '»Select Case tmpDay
        SDate = DateAdd("d", 1, SDate)
    Loop '»Do Until SDate = EDate

End Function