[VBS] - Find last Thursday of Current Month - [VBS]

Hi,

I was wondering if someone can show me a way to "Find the Last Thursday of the Current Month" using VBScript.

Thanks In Advance!

-cmonney

 

You could try an interative test against of each day in the month using the WeekDay function. In VBA its Weekday(CurrentDate) = 5 on Thursdays.

 

something like this ?

Code:

Dim currentMonth, nextMonth, MyDate

currentMonth = Month(Date)
nextMonth = Month(DateAdd("W", 1, Date))

'LTM = Last Thursday Of The Month
LTM = DateAdd("W", -1, DateSerial(Year(Date), sCtr(nextMonth), 1)

While (WeekDay(LTM) <> VBThursday)
   FTM = FTM -1
Wend

msgBox LTM & "is the last Thursday of the current month!"

thanks for your help!!!

Regards,

C$