ASPで全体の1年間の火曜日を見つける古典

Question

私はこの記事をここで審理しています。 vbscript asp - Find every Thursday in a given month

1年中火曜日を見つけたいと思ったらどうしたらいいですか？ 2016と言うのですか？

Iやった以下のように私は上記のポストからのコードに基づいてみてください、それは全体ではなく、今年の、唯一の8月のために私が返されます過度に複雑な例です

base_date = cdate("21 aug 2016") 

'get 1st thursday; 
thurs = dateserial(year(base_date), month(base_date), 1) 
'response.write(weekday(thurs)) 
if (weekday(thurs) <> 1) then thurs = 3 - weekday(thurs) + thurs 
'response.write(thurs) 
'loop subsequent; 
do until month(thurs) <> month(base_date) 
    response.write(thurs) 
    response.write("<br />") 
    thurs = dateadd("d", 7, thurs) 
loop 

Answer 1

、ときForループは、固定の開始点と終了点でも同様に機能します。

Dim day 
Dim startdate : startdate = CDate("22 mar 2015") 
Dim enddate : enddate = CDate("22 mar 2016") 

For day = startdate To enddate 
    If WeekDay(day) = vbTuesday Then Response.Write day & " = Tuesday" 
Next 

出力：

24/03/2015 = Tuesday 
31/03/2015 = Tuesday 
07/04/2015 = Tuesday 
14/04/2015 = Tuesday 
21/04/2015 = Tuesday 
28/04/2015 = Tuesday 
05/05/2015 = Tuesday 
12/05/2015 = Tuesday 
19/05/2015 = Tuesday 
26/05/2015 = Tuesday 
02/06/2015 = Tuesday 
09/06/2015 = Tuesday 
16/06/2015 = Tuesday 
23/06/2015 = Tuesday 
30/06/2015 = Tuesday 
07/07/2015 = Tuesday 
14/07/2015 = Tuesday 
21/07/2015 = Tuesday 
28/07/2015 = Tuesday 
04/08/2015 = Tuesday 
11/08/2015 = Tuesday 
18/08/2015 = Tuesday 
25/08/2015 = Tuesday 
01/09/2015 = Tuesday 
08/09/2015 = Tuesday 
15/09/2015 = Tuesday 
22/09/2015 = Tuesday 
29/09/2015 = Tuesday 
06/10/2015 = Tuesday 
13/10/2015 = Tuesday 
20/10/2015 = Tuesday 
27/10/2015 = Tuesday 
03/11/2015 = Tuesday 
10/11/2015 = Tuesday 
17/11/2015 = Tuesday 
24/11/2015 = Tuesday 
01/12/2015 = Tuesday 
08/12/2015 = Tuesday 
15/12/2015 = Tuesday 
22/12/2015 = Tuesday 
29/12/2015 = Tuesday 
05/01/2016 = Tuesday 
12/01/2016 = Tuesday 
19/01/2016 = Tuesday 
26/01/2016 = Tuesday 
02/02/2016 = Tuesday 
09/02/2016 = Tuesday 
16/02/2016 = Tuesday 
23/02/2016 = Tuesday 
01/03/2016 = Tuesday 
08/03/2016 = Tuesday 
15/03/2016 = Tuesday 
22/03/2016 = Tuesday 

あなたはここではなく、vbTuesday有効Date Time Constantsのいずれかを使用することができます。