スキルアップ・問題解決なら、モーグにおまかせ！

日付けから曜日を取得するにはWeekdayName関数とWeekday関数を用います。

以下のサンプルではインプットボックスで日付けを入力し、入力値をWeekday関数で評価した結果を”〜曜日”の文字列として表示します。

Sub GetWeekDayName()

Dim MyDate As Date

MyDate = Application.InputBox("日付けを入力してください", "曜日", _
    Format(Now, "yyyy/mm/dd"), Type:=2)

If IsDate(MyDate) Then
    MsgBox WeekdayName(Weekday(MyDate))
End If

End Sub

※エクセル97ではWeekdayName関数は用意されていません。Weekday関数の戻り値を利用して分岐処理を行う必要があります。

Weekday関数の戻り値は・・・

vbSunday	1
vbMonday	2
vbTuesday	3
vbWednesday	4
vbThursday	5
vbFriday	6
vbSaturday	7

です。エクセル2000でも特に曜日名を文字列表示する必要がなければ、Weekday関数による評価のみ行えばいいでしょう。