ASP Classic - 按天数获取上周日期答案

【问题标题】：ASP Classic - Get last weeks date by day numberASP Classic - 按天数获取上周日期
【发布时间】：2014-07-01 22:22:46
【问题描述】：

例如： 1 的日期（格式：MM/DD/YYYY）是什么？答案是：6/30/2014

天数是这样的：

Monday=1
...
Friday=5
Sunday=7

所以是这样的：

<%
   dim GetPastDay
   GetPastDay=1  
  '^ ^ ^ THIS WOULD MEAN THAT WE ARE LOOKING TO GET PAST/LAST MONDAYS DATE 
  ' AND IF WE WHERE TO REPLACE THE 1 WITH A 5 THEN IT WOULD MEAN PAST/LAST FRIDAY.

   dim GetPastDate
   '** S.O.S. -> I'M STUCK HERE! <- **
%>

最终输出将是：

<%
   Response.write "Last Date for day: " & GetPastDay & " was Date: " & GetPastDate
%>

【问题讨论】：

你不久前already asked this question...
@Paul 类似，但我支持你。不确定是否需要另一个问题。

标签： vbscript asp-classic vb6

【解决方案1】：

' Test each possible entry from Monday (1) to Sunday (7)...
For i = 1 To 7

    ' Calculate the number of days to subtract from today's date...
    j = (8 - i) Mod 7 + 1

    ' Get the date...
    d = Date - j

    ' Display the date and the weekday...
    MsgBox "Date: " & d & vbCrLf & "Day: " & WeekDayName(WeekDay(d))

Next

【讨论】：

使用Mod() 的好方法，它是一个未被充分利用且用途广泛的功能。