Getting the Number of Work Days Between Two Dates

[admin]

Function Work_Days(BegDate, EndDate)

BegDate = DateValue(BegDate)
EndDate = DateValue(EndDate)
WholeWeeks = DateDiff("w", BegDate, EndDate)
DateCnt = DateAdd("ww", WholeWeeks, BegDate)
EndDays = 0
Do While DateCnt <= EndDate
If weekday(DateCnt) <> "1" And _
weekday(DateCnt) <> "7" Then
EndDays = EndDays + 1
End If
DateCnt = DateAdd("d", 1, DateCnt)
Loop
Work_Days = WholeWeeks * 5 + EndDays

End Function

By Tim van de Water