如何计算某年某周星期几是几月几日

Question

在asp中用vbscript编写。比如：想知道2008年第10周的星期二是几月几日
别给我万年列啊，我看不懂，直接告诉我怎么写语句

Answer 1

这个嘛
ASP中的VBScript不会啊
给你段VBS代码吧(不保证代码足够简洁)，看看兼不兼容(现写的，不太好读)

ToGet = "2008-10-3" '这个是要获得的日期，如2008年第10周的星期二，格式yyyy-ww-d，ww是第几周，d是周几
mlen = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
t = Val(Left(ToGet, 4))
q = Val(Mid(ToGet, 6, 2))
m = Val(Right(ToGet, 1)) '不知道Split能不能用，直接这么做了
q = q * 7 + m
i = 0
If t Mod 4 = 0 And t Mod 100 <> 0 Then mlen(1) = 29
Do
q = q - mlen(i)
i = i + 1
Loop Until q < 0
q = q + mlen(i)
s = Weekday(t & "-1-1")
MsgBox t & "-" & i & "-" & q

Answer 2

http://site.baidu.com/list/wannianli.htm
万年历

Answer 3

intDay = DatePart("w", "3/2/2006")

Select Case intDay
Case 1
Wscript.Echo "Sunday"
Case 2
Wscript.Echo "Monday"
Case 3
Wscript.Echo "Tuesday"
Case 4
Wscript.Echo "Wednesday"
Case 5
Wscript.Echo "Thursday"
Case 6
Wscript.Echo "Friday"
Case 7
Wscript.Echo "Saturday"
End Select
自己把"3/2/2006"换成需要的

Answer 4

这个地址看看
http://zhidao.baidu.com/question/6214627.html?si=1

参考资料：http://zhidao.baidu.com/question/6214627.html?si=1