28,407
社区成员




if weekday(date)=6 then
if day(date)>14 and day(date)<22 then
...
end if
end if
dt = Date()
md1 = DateAdd("d", 1-Day(dt), dt)
wk = Weekday(md1, 2)
If wk <= 5 Then
w51 = DateAdd("d", 5-wk, md1)
Else
w51 = DateAdd("d", 5-wk + 7, md1)
End If
w53 = DateAdd("ww", 2, w51)
If DateDiff("d",w53,Date())=0 Then
Response.Write "今天是第三个星期五"
End If
<%
dim dt
dt = cdate(year(date) & "-" & month(date) & "-1") + 14 '//时间
dt = dt+(6-weekday(dt))
Response.Write(dt)
%>
<%
dim a,b
a=weekday(date)
b=int((day(now)+weekday(dateadd("d",-day(now)+1,now))-2)/7)+1
if a="6" and b="3" then
'执行你的操作.
response.write "今天是本月的第3个星期五。"
end if
%>