【VBA】日付から曜日を取得する

日付(2020/11/25等)から
 ・曜日を取得
できます!

曜日は
 ・1文字(水など)
 ・3文字(水曜日など)
の形で取得できます!

以下を使用して実現します!
・Weekday関数
・Choose関数
・WeekdayName関数

PR

VBAコード

ここでは例として、
 ・「2020/11/25」の
 ・「曜日(1文字と3文字)」を取得
します。

Option Explicit

Sub sample()

    Dim dayOfTheWeek As String
    
    '曜日(1文字)を取得
    dayOfTheWeek = Choose(Weekday("2020/11/25"), "日", "月", "火", "水", "木", "金", "土")
    
    MsgBox ("曜日は『" & dayOfTheWeek & "』です。")
    
    '曜日(3文字)を取得
    dayOfTheWeek = WeekdayName(Weekday("2020/11/25"))
    
    MsgBox ("曜日は『" & dayOfTheWeek & "』です。")
    
End Sub
PR

実行結果

日付から曜日(1文字と3文字)を取得できました!

曜日(1文字)を取得
曜日(1文字)を取得
曜日(3文字)を取得
曜日(3文字)を取得
PR

参考

上記のVBAコードで使用した以下の詳細については、公式サイトをご確認ください。

●Weekday関数


●Choose関数


●WeekdayName関数

タイトルとURLをコピーしました