VBAで日付の曜日を取得する

VBAで日付から曜日を取得するにはWeekday関数を使用します。

Weekday 関数 (Visual Basic for Applications) | Microsoft Learn

msdn.microsoft.com

コードは以下になります。

Option Explicit
Function getWeekDay(d As String) As String
'###################################################################################
'日付の曜日を表示します
'-----------------------------------------------------------------------------------
'引数  :d 文字列の日付
'###################################################################################

  If IsDate(d) Then
    Select Case Weekday(d)
      Case vbSunday
        getWeekDay = "日曜日"
      Case vbMonday
        getWeekDay = "月曜日"
      Case vbTuesday
        getWeekDay = "火曜日"
      Case vbWednesday
        getWeekDay = "水曜日"
      Case vbThursday
        getWeekDay = "木曜日"
      Case vbFriday
        getWeekDay = "金曜日"
      Case vbSaturday
        getWeekDay = "土曜日"
    End Select
  End If

End Function

Sub test_getWeekDay()

  MsgBox getWeekDay("2018/7/1")
  MsgBox getWeekDay("2018/7/12")
  MsgBox getWeekDay(123456)
  MsgBox getWeekDay("あ")

End Sub