如何计算出当前日期属于定义时间段内的第几星期？
function calculateweekno(begindate,enddate,inputdate)
dim wdate(500,8)
z=0
x=0
strlong=len(cstr(inputdate))-9
inputdate=cdate(left(cstr(inputdate),strlong))
for i=cdate(begindate) to cdate(enddate)
if inputdate=i then
x=z
exit for
end if
if weekday(i)=7 then
z=z 1
end if
next
calculateweekno=x
end function
[1]
