Public Function weekdays(dateStart As Date, dateEnd As Date)
	Dim intNumDays As Integer
	Dim dateNext As Date
	
	intNumDays = 0
	dateNext = dateStart
	While dateNext <= dateEnd
		If Not (Weekday(dateNext) = vbSunday Or _
				Weekday(dateNext) = vbSaturday) Then
			intNumDays = intNumDays + 1
		End If
		dateNext = DateAdd("d", 1, dateNext)
	Wend
	weekdays = intNumDays
End Function