怎么使用ASP计算得出2013年第43周的周一及周日的具体日期
日期：2014-05-16 浏览次数：20857 次
如何使用ASP计算得出2013年第43周的周一及周日的具体日期
ASP计算得出2013年第43周的周一及周日的日期
如输入 2013W45 得出周一及周日的具体日期，如2013-10-28 到 2013-11-03
------解决方案--------------------
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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
