Excel VBA 日付から日本語の曜日を取得する-WeekdayName関数

Excel VBAで日本語の曜日(月曜日、火曜日、、、)を取得する方法の記録です。

日本語の曜日を取得するには「WeekdayName」関数を使います。

< スポンサーリンク >





「WeekdayName」関数構文

WeekdayName(weekday[,abbreviate][,firstdayofweek])

weekday = 曜日を示す数値(Weekday関数で取得した数値など)を指定
abbreviate = 曜日名を省略するときはTrueを指定 省略可能
firstdayofweek = 曜日の最初の日を示す数値を指定 省略可能(私は使用しません)

引数のfirstdayofweekは、下記の値で指定できます。

定  数内容
vbUseSystem0各国語対応APIの設定値を使用
vbSunday1日曜(規定値)
vbMonday2月曜
vbTuesday3火曜
vbWednesday4水曜
vbThursday5木曜
vbFriday6金曜
vbSaturday7土曜

 

VBAで曜日を日本語で取得する

2018/12/1の曜日名を取得してみます。

2018/12/1は土曜日なので、abbreviateを指定しなければ「土曜日」がメッセージで表示され、abbreviateをFalse(または省略)を指定すると「土」がメッセージで表示されます。

Sub test()
    Dim hi As Date
    hi = #12/1/2018#
    MsgBox WeekdayName(Weekday(hi))
End Sub

VBAWeekdayName関数

VBAWeekdayName関数

 

Sub test()
    Dim hi As Date
    hi = #12/1/2018#
    MsgBox WeekdayName(Weekday(hi), True)
End Sub

VBAWeekdayName関数

VBAWeekdayName関数

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします