devxlogo

BusinessDateDiff – Evaluating the number of business days between two dates

BusinessDateDiff – Evaluating the number of business days between two dates

' Evaluate the number of business days between two dates' Example: Debug.WriteLine(BusinessDateDiff(#4/9/2003#, #4/25/2003#)) ' => 12Function BusinessDateDiff(ByVal startDate As Date, ByVal endDate As Date, _    Optional ByVal saturdayIsHoliday As Boolean = True) As Integer    Dim incr As Integer    ' incr can be +1 or -1    If startDate < endDate Then incr = 1 Else incr = -1    Do Until startDate = endDate        ' skip to previous or next day        startDate = startDate.AddDays(incr)        If startDate.DayOfWeek <> DayOfWeek.Sunday AndAlso (startDate.DayOfWeek _            <> DayOfWeek.Saturday Or Not saturdayIsHoliday) Then            ' if it's a weekday add/subtract one to the result            BusinessDateDiff += incr        End If    Loop    ' when the loop is exited the function name contains the correct result         '    End Function

See also  How to Avoid Money Transfer Scams  
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist