Private Function IsWorkWeek(ByVal FirstDay As DateTime, ByVal SecondDay As DateTime) As Boolean
If FirstDay.DayOfWeek = DayOfWeek.Monday AndAlso SecondDay.DayOfWeek = DayOfWeek.Friday Then
Return True
Else
Return False
End If
End Function
Private Function WorkWeek(ByVal whatDate As Date) As Int32
WorkWeek = DatePart(DateInterval.WeekOfYear, whatDate)
End Function