Find the date of the 2nd and 4th Thursday

ivanv · June 17th, 2003, 04:46 AM

Hi guys,

I would like to find the date of the 2nd and 4th Thursday of a particular month. Can aynone help please?

Example if I input Now() it will give me 12th and 26th June as the result.

Thanks for your help

pgtips · June 17th, 2003, 07:01 AM

Try this:
1. define a function that takes a month and year number as inputs
2. use the WeekDay function to find what day the 1st of the month is
3. add on the required number of days to move to the first Thursday (e.g if 1st is a Monday, add 3 days)
4. add on a further 7 days to get the 2nd Thursday
5. add on a further 14 days to get to the 4th Thursday

job done
hth
Phil

owain · June 17th, 2003, 07:44 AM

Try this function GetThursdays. Pass in the date you are interested in and 2 date variables which will return the 2nd and 4th Thursdays.

Code:

Sub GetThursdays(datDate, dat2nd, dat4th)

    'Convert the passed in date to the 1st of the month
    datDate = DateSerial(Year(datDate), Month(datDate), 1)
    'The 2nd Thursday is 7 minus the week day of the date
    'starting from Friday plus 7. For example Monday would
    'be the 4th day, 7 - 4 is 3, 3 + 7 is 10, 10 days from
    'Monday would be the 2nd Thursday
    dat2nd = DateAdd("d", (7 - WeekDay(datDate, vbFriday)) + 7, datDate)
    'The 4th Thursday is the 2nd Thursday plus 14
    dat4th = DateAdd("d", 14, dat2nd)

End Sub

Then in your main ASP code you can do something similar to this:

Code:

Dim Second, Fourth

GetThursdays Now, Second, Fourth

Response.Write "2nd Thursday: " & Second & " 4th Thursday: " & Fourth

This will return the following for any date this month (june 2003)

2nd Thursday: 12/06/2003 4th Thursday: 26/06/2003

I trust this is what you were after.

Regards
Owain Williams

ivanv · June 17th, 2003, 07:50 AM

Thanks Owain. Exactly what I needed you saved me a lot of time

Thanks Again

Regards

Ivan Vella