Function getBusDays(SDate As Date, EDate As Date) As Integer
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 '»Select Case tmpDay
SDate = DateAdd("d", 1, SDate)
Loop '»Do Until SDate = EDate

End Function