Myriad_Rocker
Questioning Reality
- Local time
- Today, 18:21
- Joined
- Mar 26, 2004
- Messages
- 166
This won't work for some reason. I know the date going into it is 9/1
Code:
ElseIf thedate.Month = 9 And thedate.DayOfWeek = DayOfWeek.Monday Then
Select Case thedate.Day
Case 1 To 7
thedate.AddDays(1)
End Select