if statements to test for third Wed of the month

dgr7 · March 28th, 2007, 10:45 AM

hello,
what would be the VB6 code for an if statement that would check for if it's the third wednesday of the month and execute some code based on that. Also would would be the similar code for if it's the third thursday of the month?
thanks in advance,
david

BrianWren · March 30th, 2007, 10:03 AM

There would be a span of days-of-the-month for a Wednesday that is the 3rd Wednesday of the month. 15 â 21, I believe. If that is the right range, then it would be the same for any day of the week. So if the dat is >= 15 and <= 21 and the weedkday is that which represents Wednesday, then you are within your span.

If you think about it, if 1 is the date of the first Wednesday, then 14 will be the date of the tuesday before the 3rd Wednesday.
If 1 is the date of the first Thursday, the first Wednesday will be 6. the Wednesdays will be 7, 14, and 21. 15 is 1 higher, dodging therefore the 2nd Wednesday.

dgr7 · April 17th, 2007, 03:44 PM

thanks for everyone's input. With your help, I came up with this test code that worked well as I changed the pc's calendar to the third wed, third thurs and some other days.

Code:

If Weekday(Date) = vbWednesday And Day(Date) >= 15 And Day(Date) <= 21 Then
    MsgBox "Today is the third Wednesday of the month"
Else
    If Weekday(Date) = vbThursday And Day(Date) >= 15 And Day(Date) <= 21 Then
        MsgBox "Today is the third Thursday of the month"
    Else
        MsgBox "today is the " & Weekday(Date) & " / " & Day(Date) & " day of " & Month(Date) & " " & Year(Date)
    End If
End If