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天。将该差异添加到当前日期，您就拥有了所需的日期。