求一计算星期函数，在线等，马上结贴

[Anden]

返回一整数，计算从2005-12-25（星期日）起，当天是第几周内。

如： WeekNum("2005-12-26") = 1
WeekNum("2005-12-31") = 1
WeekNum("2006-1-1")=2
WeekNum("2006-1-8")=3

[soloist007]

<%
DateBegin = DateValue("11 12,2005")
Icount = 0
Do Until DateBegin > now()
WeekValue = WeekDay(DateBegin)
If WeekValue = 2 Then
Icount = Icount + 1
End If
DateBegin = DateBegin + 1
Loop
%>
<%= Icount %>

[竹林听雨2005]

用DATEADD函数来判断，用法如下：

'newdate=DateAdd(interval, number, date)
'interval：
'yyyy 年
'q 季度
'm 月
'y 一年的日数
'd 日
'w 一周的日数
'ww 周
'h 小时
'n 分钟
's 秒

newdate表示最终日期，date可以用2005-12-25表示，主要用来算number的值就可以了。

[MonkeyDHua]

<%
function WeekNum()
bday=FormatDateTime("2005-12-25",2)
WeekNum=datediff("d",bday,now())\7+1
end function

response.write weeknum()
%>

[mrwang2000]

<%
function WeekDiff(lastTime,currTime)
dim rt
rt = DateDiff("d",lastTime,currTime)\7+1
WeekDiff=rt
end function

response.write( WeekDiff("2005-11-12",Now()) )

%>