作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/05 01:00:55
如何计算某年某周星期几是几月几日
在asp中用vbscript编写.比如:想知道2008年第10周的星期二是几月几日
别给我万年列啊,我看不懂,直接告诉我怎么写语句
这个嘛
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