|
▼たくやん さん:
おはようございます。
まず2点ほど…。
対象が 「9/3(土)」 という文字列なのか、「2005/9/3」のような日付型なのかで
コードが違ってくると思いますよ。
>下のように水曜日から翌週の火曜日を1週間として
>表示させることは可能でしょうか?
>9/3(土) →08/30-09/06
8/30 から 9/06 までは 8日間ありますよ。
「2005/09/05」 のような日付型で、
また × 8/30 → ○ 8/31 であるならば、
Sub 週の表示()
Dim MyDate As Date
Dim StartDate As Date
Dim EndDate As Date
MyDate = "2005/9/6"
StartDate = DateAdd("d", 1 - Weekday(MyDate, vbWednesday), MyDate)
EndDate = DateAdd("d", 6, StartDate)
MsgBox StartDate & " - " & EndDate
End Sub
もし年度に関係なく「9/3(土)」から文字列で判断するのであれば
違った処理になると思います。
|
|