<am********@gmail.com> wrote in message
news:11*********************@i39g2000cwa.googlegro ups.com...
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
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