Question

asp获取当前日期前一周周一到周日时间？

比如今天是2015/12/10 上周的日期就是2015/11/30到2015/12/6？如何获取

Answer 1

Dim td,tw
td = Date()
tw = DatePart("ww", td, 2)
Do
    td = td - 1
Loop While DatePart("ww", td, 2) = tw
response.write "当前日期前一周周一到周日为" & td - 6 & "到" & td

Answer 2

<%
'格式化日期
Function fmtDate(dt)
 Dim y, m, d 
 y = Year(dt)
 m = "0" & Month(dt)
 d = "0" & Day(dt)
 m = Right(m, 2)
 d = Right(d, 2)
 fmtDate = y & "/" & m & "/" & d
End Function
%>
<%
cd = DateAdd("ww",-1 , Date())  '获得当前日期的上一周对应的日期
ce = Weekday(cd, 2) '获得上一周 与周一的差额天数
fd = DateAdd("d", 1-ce, cd) '获得上一周 周一的日期
'当前日期
response.Write(Date()) &"<br><br>"
'前一周范围 始于 周一
dt = DateAdd("d", 0 , fd)
response.Write fmtDate(dt) '格式化日期函数
response.write(" --- ")
'前一周范围 止于 周日
dt = DateAdd("d", 6 , fd)
response.Write fmtDate(dt) &"<br><br>"
'循环输出周一到周日
For i = 0 To 6
 dt = DateAdd("d", i , fd)
 response.Write fmtDate(dt) & "<br>"
Next
%>