Function to Calculation number of Workdays between two dates:   Return to List

Function GetWorkDays(StartDate As Long, EndDate As Long) As Long
' returns the count of days between StartDate - EndDate minus Saturdays and Sundays
Dim d As Long, dCount As Long
    For d = StartDate To EndDate
        If WeekDay(d, vbMonday) < 6 Then
            dCount = dCount + 1
        End If
    Next d
    GetWorkDays = dCount
End Function

' Copy and paste the code into a normal module sheet.
The function can be used like this in a worksheet cell:


=GETWORKDAYS(A2;B2)

' Cell A2 and B2 have to contain valid Excel dates, or formulas/functions that return dates, e.g. =TODAY().  The function does not count the holidays between the two dates.

See also:
Date & Time calculations using Now()
Date Calculation (variations)
Date Formats and Comparisons
VB6 . . . Format() function with variations



Note to Webmaster