Weekday関数 : Excel

ExcelのWeekday関数は指定した日付が何曜日であるか整数で返ります。



Homeに戻る > Excel 日付・時刻関数のTipsへ


構文 : Weekday(date, [firstdayofweek])
  date - 調べる日付を指定します
  firstdayofweek - (省略可能)週の第 1 日目の曜日を指定します。省略すると日曜日(vbSunday)になります

firstdayofweek の定数 :
  vbUseSystem  0  NLS APIの 設定値
  vbSunday  1  (既定値) 日曜
  vbMonday  2 月曜
  vbTuesday  3 火曜
  vbWednesday  4  水曜
  vbThursday  5  木曜
  vbFriday  6  金曜
  vbSaturday  7  土曜

戻り値の定数 :
  vbSunday  1  (既定値) 日曜
  vbMonday  2 月曜
  vbTuesday  3 火曜
  vbWednesday  4  水曜
  vbThursday  5  木曜
  vbFriday  6  金曜
  vbSaturday  7  土曜

Excel実行画面

曜日を調べる日付に正しい日付を入力しないと、エラーメッセージが表示されます。
曜日の取得エラー

日付を入力し、「曜日を調べる」ボタンをクリックすると、その曜日を調べ表示します。
曜日取得ソフト


Excel VBA実行コード

Option Explicit

'曜日を調べる
Private Function ExGetWeekday(tdate As Date) As String
    Dim n As Integer
    Dim s As String
    
    n = Weekday(tdate)
    
    Select Case n
        Case vbSunday:  s = "日曜日"
        Case vbMonday:  s = "月曜日"
        Case vbTuesday:  s = "火曜日"
        Case vbWednesday:  s = "水曜日"
        Case vbThursday:  s = "木曜日"
        Case vbFriday:  s = "金曜日"
        Case vbSaturday:  s = "土曜日"
    End Select
    ExGetWeekday = s
End Function

Private Sub CommandButton1_Click()
    Dim s As String
    Dim sweek As String
    
    s = Range("D3")
    If IsDate(s) = False Then
        MsgBox "D3に日付を入力してください"
        Exit Sub
    End If
        
    sweek = ExGetWeekday(CDate(s))
    '結果を表示
    MsgBox Format(s, "yyyy/mm/dd") & "は、" & sweek & "です"
End Sub



Homeに戻る > Excel 日付・時刻関数のTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved