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

来源:学生作业帮助网 编辑:作业帮 时间:2024/08/25 14:11:07
如何计算某年某周星期几是几月几日在asp中用vbscript编写.比如:想知道2008年第10周的星期二是几月几日别给我万年列啊,我看不懂,直接告诉我怎么写语句
xSOPWn ݈b2HC|n@~t[:XHqAXMM๽uLŦ9999绷~%׌~kˤ{jK-Riz盤S[/P[p(Fm=^D4k8{+mٯBxo߬?7/I~7;Җ?^Z i/ÊF(vJyʾCtTȞA m&i39MsXzϧaWI'0 vm? Є# -w*\TA a}0ge*KYYx79xlV,@&H|jZjgwǢ hL+n{'y>䲙{: A)#r:XK?$Cc !%&`8JsՌQnq#2DD"RL2&hǗDeX8H޴n'/  }$ۛN&t?1H;-Y D" a3.+dp"@_

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

如何计算某年某周星期几是几月几日在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