ASP Classic获取下一个日期的一个星期的日期姓名

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)是一周中的一天currend的数目（与星期一被设定为第一工作日）。如果xWeekDay将来（xWeekDay > today），则下一次出现的时间为xWeekDay - today天。否则它是xWeekDay + 7 - today天。将该差异添加到当前日期，并且您有要查找的日期。