曜日を取得する

曜日を取得する

曜日を取得するにはWeekday関数を使用します。ただし、結果は文字列で返すのではなく数字で返すので、結果に応じて文字列を表示するようにする必要があります。以下のコードはボタンを押した時に、曜日を表示するコードです。ここでは数字の変わりに曜日の定数を使用しています。定数とはその名のとおり、値はアプリケーションを実行している間は一定です。定数を利用すると、数値の代わりにわかりやすい名前を使うことができ、コードが読みやすくなります。もちろん数字でもまったく問題ありません。どっちを使うかはあなた次第です。

Private Sub Command1_Click()
Dim Youbi As String

Select Case WeekDay(Now)
    Case vbSunday     ' = 1
    Youbi = "日曜日"

    Case vbMonday     ' = 2
    Youbi = "月曜日"

    Case vbTuesday    ' = 3
    Youbi = "火曜日"

    Case vbWednesday ' = 4
    Youbi = "水曜日"

    Case vbThursday   ' = 5
    Youbi = "木曜日"

    Case vbFriday       ' = 6
    Youbi = "金曜日"

    Case vbSaturday   ' = 7
    Youbi = "土曜日"
End Select

Label1.Caption = "今日は" & Youbi

End Sub

定数と曜日の対応は以下の通りです。

定数	値	内容
vbSunday	1	日曜
vbMonday	2	月曜
vbTuesday	3	火曜
vbWednesday	4	水曜
vbThursday	5	木曜
vbFriday	6	金曜
vbSaturday	7	土曜

戻る