0

曜日を指定する数値を指定し、指定された曜日の次の日付を 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
4

1 に答える 1

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数日かかります。その差を現在の日付に追加すると、探している日付が得られます。

于 2013-06-28T18:23:18.390 に答える