日付から曜日を取得する【WeekDay/WeekDayName関数】【ExcelVBA】

構文
WeekDay/WeekDayName関数のサンプルコード
注意点
FirstdayOfWeekの定数
関連記事

構文

WeekDay(Date,FirstDayOfWeek) As Integer

Date・・・・・・・・曜日を調べる日付を指定
FirstDayOfWeek ・・週の第１日目の曜日を指定(省略可能)
戻り値・・・・・・・何曜日かを整数値で返します。

WeekDayName(WeekDay,abbreviate,FirstDayOfWeek) As String

WeekDay・・・・・・・・曜日を表す数値を指定
abbreviate ・・・・・・・曜日名を省略するかどうか (省略可能)規定値False=省略しない
FirstDayOfWeek ・・・・週の第１日目の曜日を指定(省略可能)
戻り値・・・・・・・・・何曜日かを文字列で返します。

WeekDay/WeekDayName関数のサンプルコード

Public Sub sample_Weekday_WeekdayName()

    '■通常の使い方
    Debug.Print Weekday("2021/02/24")               '4
    Debug.Print WeekdayName(Weekday("2021/02/24"))  '水曜日
    
    '■水曜日→水と「曜日」を省略
    Debug.Print WeekdayName(Weekday(Date), True)    '水 (2021/02/24の場合)
    
    
    '■エラーの場合
    Debug.Print Weekday("")            '実行時エラー13　型が一致しません
    Debug.Print WeekdayName("水曜日")  '実行時エラー13　型が一致しません

End Sub

注意点

日付データ以外はエラーとなる為、事前にIsDate関数で日付かどうか判断しましょう。
WeekdayName関数は0~7以外の数値以外はエラーです。WeekDay関数と併用して使用しましょう。

FirstdayOfWeekの定数

基本は規定値のvbSunday以外使用しないと思います。省略して問題ありません。

定数	値	内容
vbUseSystem	0	システムで設定されている最初の曜日
vbSunday	1	日曜(既定値)
vbMonday	2	月曜
vbTuesday	3	火曜
vbWednesday	4	水曜
vbThursday	5	木曜
vbFriday	6	金曜
vbSaturday	7	土曜