asp-classic - ASP Classic 获取 WeekDayName 的下一个日期

Question

我想指定一个指定星期几的数字，然后让 ASP 获取指定星期几的即将到来的日期。

例子：

Dim xWeekDay
xWeekDay=1   ' <-- 1 would be a Monday...and Sunday would be 7

Dim NextDdate
NextDdate= ????  <-- I want to calculate and show the Upcoming Date here 

So the above line would look like this when it's populated.
NextDdate=7/1/2013

Answer 1

尝试这个：

today = Weekday(Date, vbMonday)
If xWeekDay > today Then
  NextDate = Date + (xWeekDay - today)
Else
  NextDate = Date + (xWeekDay + 7 - today)
End If

Weekday(Date, vbMonday)是一周中当前日期的编号（星期一被设置为第一个工作日）。如果 xWeekDay 在未来 ( xWeekDay > today)，则下一次出现是xWeekDay - today几天之后。否则就差xWeekDay + 7 - today几天了。将该差异添加到当前日期，您就有了您正在寻找的日期。