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

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

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

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

PR

VBAコード

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文字)を取得できました!

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