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