How to get date correponding to 2nd wednesday of each month.

  • Thread starter Thread starter amit.gaind
  • Start date Start date
Ok, I got it myself..
If Today.DayOfWeek < DayOfWeek.Wednesday Then
dt2ndWednesday = DateAdd("d", (DayOfWeek.Wednesday -
Today.DayOfWeek) + 7, Today)
ElseIf Today.DayOfWeek > DayOfWeek.Wednesday Then
dt2ndWednesday = DateAdd("d", 14 - (Today.DayOfWeek -
DayOfWeek.Wednesday), Today)
End If
 
Op 27 Mar 2006 14:08:07 -0800 schreef (e-mail address removed):
Ok, I got it myself..
If Today.DayOfWeek < DayOfWeek.Wednesday Then
dt2ndWednesday = DateAdd("d", (DayOfWeek.Wednesday -
Today.DayOfWeek) + 7, Today)
ElseIf Today.DayOfWeek > DayOfWeek.Wednesday Then
dt2ndWednesday = DateAdd("d", 14 - (Today.DayOfWeek -
DayOfWeek.Wednesday), Today)
End If
Click to expand...

I replied earlier, but something must have gone wrong because I cannot find
my post.

Check your code, because it will fail on Wednesdays. In another group you
mentioned that this is only run on the first of the month. This means you
have until November to figure out what to do:-)

Renze de Waal.
 
Ok, I got it myself..
If Today.DayOfWeek < DayOfWeek.Wednesday Then
dt2ndWednesday = DateAdd("d", (DayOfWeek.Wednesday -
Today.DayOfWeek) + 7, Today)
ElseIf Today.DayOfWeek > DayOfWeek.Wednesday Then
dt2ndWednesday = DateAdd("d", 14 - (Today.DayOfWeek -
DayOfWeek.Wednesday), Today)
End If
Click to expand...

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim dtWed2 As Date
dtWed2 = New DateTime(DateTimePicker1.Value.Year, _
DateTimePicker1.Value.Month, 8)
If dtWed2.DayOfWeek <> DayOfWeek.Wednesday Then
dtWed2 = DateAdd(DateInterval.Day, _
Choose(dtWed2.DayOfWeek + 1, 3, 2, 1, 0, 6, 5, 4), dtWed2)
End If
TextBox1.Text = dtWed2.ToShortDateString
End Sub
 
Back
Top