曜日を取得する – Excelメモ

今回は曜日の取得についてメモしておきます。

曜日番号を取得する

Weekday関数で週の曜日番号を取得できます。

実行プログラム

Sub Sample8_4_1()

    Dim dt  As Date
    dt = Now

    Debug.Print dt
    Debug.Print Weekday(Date:=dt)  ' vbSunday(既定)
    Debug.Print Weekday(Date:=dt, firstdayofweek:=vbMonday)

End Sub

Sub Sample8_4_1()

Dim dt As Date

dt = Now

Debug.Print dt

Debug.Print Weekday(Date:=dt) ' vbSunday(既定)

Debug.Print Weekday(Date:=dt, firstdayofweek:=vbMonday)

End Sub

実行条件

実行結果

firstdayofweekを指定しない場合、日曜日が開始日(1)となります。

曜日	日	月	火	水	木	金	土
戻り値	1	2	3	4	5	6	7

firstdayofweekを指定することで開始曜日を指定できます。
“vbMonday”を指定すると月曜日が開始日(“1”)となります。

曜日	月	火	水	木	金	土	日
戻り値	1	2	3	4	5	6	7

曜日名を取得する

WeekdayName関数を使います。

実行プログラム

Sub Sample8_4_2()

    Debug.Print WeekdayName(Weekday:=1, abbreviate:=False)  ' vbSunday(既定)
    Debug.Print WeekdayName(Weekday:=1, abbreviate:=True)   ' vbSunday(既定)

    Debug.Print WeekdayName(Weekday:=1, abbreviate:=False, firstdayofweek:=vbMonday)

End Sub

Sub Sample8_4_2()

Debug.Print WeekdayName(Weekday:=1, abbreviate:=False) ' vbSunday(既定)

Debug.Print WeekdayName(Weekday:=1, abbreviate:=True) ' vbSunday(既定)

Debug.Print WeekdayName(Weekday:=1, abbreviate:=False, firstdayofweek:=vbMonday)

End Sub

実行結果

パラメーターweekdayには曜日番号を指定します。
パラメーターabbreviateには曜日名の省略をブール型で指定します。既定値は”False”で省略されない名称になります。
firstdayofweekを指定しない場合、1(開始日)は日曜日となります。

Weekday	1	2	3	4	5	6	7
戻り値	日曜日	月曜日	火曜日	水曜日	木曜日	金曜日	土曜日

firstdayofweekを指定することで開始曜日を指定できます。
“vbMonday”を指定すると1(開始日)が月曜日となります。

Weekday	1	2	3	4	5	6	7
戻り値	月曜日	火曜日	水曜日	木曜日	金曜日	土曜日	日曜日

システム日付から曜日名を取得する

実行プログラム

Sub Sample8_4_3()

    Debug.Print Now
    Debug.Print WeekdayName(Weekday:=Weekday(Now))

End Sub

Sub Sample8_4_3()

Debug.Print Now

Debug.Print WeekdayName(Weekday:=Weekday(Now))

End Sub

実行条件

実行結果