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

by Dr. John Nyhart (4 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Sat 6^th May 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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



    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

Download this snippet Add to My Saved Code

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

No comments have been posted about This function will return the number of business days between two dates.. Why not be the first to post a comment about 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. Comments

Post your comment

Difficulty