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
 
Without trying to understand what the code means I can tell you that it will
fail on Wednesdays:-)

If you don't know what I mean, you will be abl eto test it soon. Follow the
logic when today.dayofweek = dayofweek.wednesday.

Renze de Waal
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to get date correponding to 2nd wednesday of each month. 3
How to get 2nd Wednesday of each month? 1
Excel Forecasting Dates Out to the Day 3
Return the first Wednesday of each month 4
Recurring Meetings 1
count wednesdays within a month 7
Count Wednesdays within a calendar month 1
Function to calculate number of Wednesdays in time interval 1

Back
Top