如何根据年,周计算日期?

如何根据年,周计算日期?

没有星期几，不可能算得出日期的！
如果知道是星期几，可以这样计算日期：首先用一个含12个元素的数组存放每月的天数，对于二月的天数则要给一个判断，若是闰年则为29天，否则是28天，数组元素依次为1—12月份的天数，然后根据周数和星期几计算这是这一年的第多少天，而同时将数组的元素依次相加，看这个天数落在哪个区间内，就可以判定是几月了，如数组month[12],用一个循环将各元素相加，循环的条件是当相加的和大于前面计算的天数时就停止，此时循环的次数即为对应的月份。至于日期的计算，只要用前面计算的天数减去所对应的月份之前的所有数组元素之和就可以了，如2008年第7周星期二，我们可算得天数为44天，显然通过前面的计算月份方法可知道应该是二月份，那么就减去数组元素相加到一月份的和，这里44减去31就得13，也就是说为2月13日。从而可得到日期！

第

年 第

周

<%
z=request.form("yy")
zz=request.form("ww")
if z<>"" and zz<>"" then
x=csng(zz)
call numweek(z,x)
end if
%>
<%
sub numweek(yy,ww)
a=yy&"-1-1"
b=weekday(cdate(a))
thedate=cdate(a)
if ww =1 then
do
if weekday(thedate)=1 then
exit do
end if
thedate=thedate+1
loop
response.write yy & "年第"&ww&"周是
"
response.write a & "
"
response.Write thedate& "
"
exit sub
end if
if b=2 then
theww=0
else
theww=1
end if
Do
if weekday(thedate)=2 then
theww=theww+1
end if
if theww=ww then
exit do
end if
thedate=thedate+1
loop
response.write yy & "年第"&ww&"周是
"
response.write thedate & " 星期一
"
response.Write thedate+7& " 星期日
"
end sub
%>
自己写的 而且给你写成 sub形式了 方便你随时调用
，够意思了吧!给点分

没有星期几，不可能算得出日期的！
如果知道是星期几，可以这样计算日期：首先用一个含12个元素的数组存放每月的天数，对于二月的天数则要给一个判断，若是闰年则为29天，否则是28天，数组元素依次为1—12月份的天数，然后根据周数和星期几计算这是这一年的第多少天，而同时将数组的元素依次相加，看这个天数落在哪个区间内，就可以判定是几月了，如数组month[12],用一个循环将各元素相加，循环的条件是当相加的和大于前面计算的天数时就停止，此时循环的次数即为对应的月份。至于日期的计算，只要用前面计算的天数减去所对应的月份之前的所有数组元素之和就可以了，如2008年第7周星期二，我们可算得天数为44天，显然通过前面的计算月份方法可知道应该是二月份，那么就减去数组元素相加到一月份的和，这里44减去31就得13，也就是说为2月13日。从而可得到日期！