如何使用ASP计算得出2013年第43周的周一及周日的具体日期
ASP计算得出2013年第43周的周一及周日的日期
如输入 2013W45 得出周一及周日的具体日期，如2013-10-28 到 2013-11-03
[解决办法]
s = "2013W45"
a = Split(s, "W")
y = a(0) & "-1-1"
n = 0
If UBound(a)>0 Then n = a(1)
If Not IsDate(y) Then y = Year(Date()) & "-1-1"
If Not IsNumeric(n) Then n = 1
d = DateAdd("ww", n-1, CDate(y))
wd = Weekday(d, 2)
d1 = DateAdd("d", 1-wd, d)
d7 = DateAdd("d", 7-wd, d)
Response.Write a(0) & "年第" & n & "周 周一 " & d1 & " 周日 " & d7
