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) это номер currend день недели (с понедельника быть установлен в качестве первого дня недели). Если xWeekDay в будущем (xWeekDay > today), то следующее событие будет xWeekDay - today дней. В противном случае это xWeekDay + 7 - today дней. Добавьте эту разницу в текущую дату, и у вас есть дата, которую вы ищете.