vbscript asp - 查找每个星期四在一个特定的月份

问题描述

任何人都可以帮助？

解决方案

这是一种方式;

  base_date = cdate（2011年8月21日 ）
 
'获得第一个星期四; 
 thurs = dateserial（year（base_date），month（base_date），1）
 if（weekday（thurs）1）then thurs = 5  -  weekday（thurs）+ thurs 
 
'循环后续; 
直到月（thurs）<> month（base_date）
 msgbox thurs 
 thurs = dateadd（d，7，thurs）
 loop 
  

I'm trying to find all Thursdays within a given Month using VBScript.

Can anyone help?

解决方案

Here is one way;

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

这篇关于vbscript asp - 查找每个星期四在一个特定的月份的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！