简单的本周算法
输出今天所在的周的全部,是个ASP的代码,不过,具有通用性
<%
Dim i, d
Dim interval
For i = 0 To 6
interval = i - WeekDay(Date) + 1
d = DateAdd("d", interval, Date)
Response.Write(d)
Response.Write("-----")
Response.Write(WeekDayName(Weekday(d)))
Response.Write("<br>")
Next
%>
Dim i, d
Dim interval
For i = 0 To 6
interval = i - WeekDay(Date) + 1
d = DateAdd("d", interval, Date)
Response.Write(d)
Response.Write("-----")
Response.Write(WeekDayName(Weekday(d)))
Response.Write("<br>")
Next
%>
作者: 三角猫
http://www.zu14.cn/
转载请保留此信息