Public Function RemoveWeekends _
(strStartDate As String, intNumberOfDays) As Integer Dim i As Integer For i = 0 To intNumberOfDays Select Case Weekday(DateAdd("d", i, CDate(strStartDate))) Case vbSaturday, vbSunday intNumberOfDays = intNumberOfDays - 1 End Select Next i RemoveWeekends = intNumberOfDays End Function |