Myriad_Rocker
08-18-2008, 09:12 PM
Why in the world will this not work? I know the date is 9/1 going into it.
ElseIf thedate.Month = 9 And thedate.DayOfWeek = DayOfWeek.Monday Then
Select Case thedate.Day
Case 1 To 7
thedate.AddDays(1)
End Select
ElseIf thedate.Month = 9 And thedate.DayOfWeek = DayOfWeek.Monday Then
Select Case thedate.Day
Case 1 To 7
thedate.AddDays(1)
End Select