## Unanswered: I want the 4th monday of the Month

I have done it

Code:
```<%
Function NextDate(nmonth, nTh, myday)
'*************************************************
'thanks to
'http://michaelthompson.org/technikos/holidays.php
'*************************************************
Select Case myday
Case "Mon"
nTargetday = 2
Case "Tue"
nTargetday = 3
Case "Wed"
nTargetday = 4
Case "Thu"
nTargetday = 5
Case "Fri"
nTargetday = 7
Case "Sat"
nTargetday = 0
Case "Sun"
nTargetday = 1
End Select
'if month = 13 them ad 1 to the year
'not tested cause it only come once a year
'it should work
if nmonth = 13 then
nmonth = 1
nyear = Year(Date) + 1
else
nyear = Year(Date)
end if
nEarliestDate = 1 + 7 * (nTh - 1)
nWeekday = Weekday(DateValue(nEarliestDate & "/" & nmonth & "/" & nyear), vbSunday)
If nWeekday = nTargetday Then
noffset = 0
ElseIf nTargetday < nWeekday Then
noffset = nTargetday + (7 - nWeekday)
Else
noffset = (nTargetday + (7 - nWeekday)) - 7
End If
'is the date pass the date in question
'need add 1 month to it
nextD = nEarliestDate + noffset & " " & MonthName(nmonth, True) & " " & nyear
checkdate  = DateValue(nEarliestDate + noffset & "/" & nmonth & "/" & nyear)

if  date > checkdate then
nexx = nmonth + 1
NextDate = NextDate(nexx,nth,myday)
else
NextDate = nextD
end if

End Function

%>```
to use just <%=NextDate(month(date),4,"Mon")%>
or

<%=NextDate(month(date),4,"Wed")%>

injoy

hope this help someone