InfoPrintDriver

Function getBusDays(SDate As Date, EDate As Date) As Integer
'

' **************************************

' This function will find 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
SDate = DateAdd("d", 1, SDate)
Loop

End Function