Date vbscript asp-查找给定月份的每个星期四

我正在尝试使用VBScript查找给定月份内的所有星期四

有人能帮忙吗？

这里有一种方法

base_date = cdate("21 aug 2011")

'get 1st thursday;
thurs = dateserial(year(base_date), month(base_date), 1)
if (weekday(thurs) <> 1) then thurs = 5 - weekday(thurs) + thurs

'loop subsequent;
do until month(thurs) <> month(base_date)
    msgbox thurs
    thurs = dateadd("d", 7, thurs)
loop

base_date=cdate（“2011年8月21日”）
“第一个星期四；
星期四=日期序列（年（基准日），月（基准日），1）
如果（工作日（星期四）1），则星期四=5-工作日（星期四）+星期四
"循环",；
截止月份（星期四）月（基准日）
msgbox星期四
星期四=日期添加（“d”，7，星期四）
环

当执行任务时，对于可以通过

WeekDay（）

函数和

for

循环来完成的任务来说，这太复杂了

Dim day
Dim startdate: startdate = CDate("21 aug 2011")
Dim enddate
'Get first day of month.
startdate = DateSerial(Year(startdate), Month(startdate), 1)
'Get last day of month.
enddate = DateAdd("m", 1, startdate) - 1
For day = startdate To enddate
  If WeekDay(day) = vbThursday Then WScript.Echo day & " = " & WeekDayName(WeekDay(day))
Next

输出：

2011年8月4日=星期四
2011年8月11日=周四
2011年8月18日=星期四
2011年8月25日=星期四

---

在这里，只要稍加修改，任何一个都可以用来查找不同的或多个工作日。

澄清：您想要一个月内所有星期四的日期吗？是的，请在8月份这样做：第4/11/18/25天如果您使用VBSquarty和vbSunday而不是神奇的数字，这将更容易理解。方法是对于一项简单的任务来说过于复杂。

For

循环与

WeekDay（）

函数同样有效。