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天。將該差異添加到當前日期，並且您有要查找的日期。