VBA 【Weekday関数】日付の曜日を返す

1 VBAのWeekday関数とは？

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

VBAのWeekday関数とは？

今回は引数で指定された日付の曜日を「数値」で返す【Weekday関数】について解説したいと思います。

数値を曜日に変換することができる「WeekdayName関数」とは相性がいいのでそちらも一緒に使うといいと思います(^^♪

WeekdayName関数についてはこちら：【VBA 【WeekdayName関数】数値を曜日に変換する】

Weekday関数の書式

Weekday関数の書式は以下の通りです。

Weekday( date(対象の日付), firstdayofweek(オプション))

1	Weekday( date(対象の日付), firstdayofweek(オプション))

Weekday関数の引数は2つあります。

引数名	説明
date(対象の日付)	必ず指定します。日付を表すことができる数式、文字列式、またはその任意の組み合わせです。日付にに Null が含まれる場合は、Null が返されます。
firstdayofweek	オプション。週の最初の曜日を指定する定数です。指定しなかった場合は、vbSunday (日曜日)が使用されます。

firstdayofweekの設定

引数のfirstdayofweek の設定はこのようになります。基本はここの部分を変更することはないかもしれません。

定数	値	説明
vbUseSystem	0	NLS API 設定を使用します。
vbSunday	1	日曜日 (既定)
vbMonday	2	月曜日
vbTuesday	3	火曜日
vbWednesday	4	水曜日
vbThursday	5	木曜日
vbFriday	6	金曜日
vbSaturday	7	土曜日

Weekday 関数の返り値

Weekday 関数は、次の値を返します。

定数	値	説明
vbSunday	1	日曜日
vbMonday	2	月曜日
vbTuesday	3	火曜日
vbWednesday	4	水曜日
vbThursday	5	木曜日
vbFriday	6	金曜日
vbSaturday	7	土曜日

Weekday関数の使用例

実際にWeekday関数を使用してみましょう(^^)/

次のコードはinputBoxを使って入力された日付の曜日を返すコードです、caseの部分が数字になっていますがvbSunday等の定数でも可能ですのでご自由にお使いください。

Sub WeekdaySample()
Dim Inputdate As String
Inputdate = InputBox("日付を入力してください 例：2017/01/01")
If IsDate(Inputdate) Then
Select Case Weekday(Inputdate, 2)
Case 1
MsgBox Inputdate & "は日曜日です"
Case 2
MsgBox Inputdate & "は月曜日です"
Case 3
MsgBox Inputdate & "は火曜日です"
Case 4
MsgBox Inputdate & "は水曜日です"
Case 5
MsgBox Inputdate & "は木曜日です"
Case 6
MsgBox Inputdate & "は金曜日です"
Case 7
MsgBox Inputdate & "は土曜日です"
End Select
End If
End Sub

Sub WeekdaySample()

Dim Inputdate As String

Inputdate = InputBox("日付を入力してください例：2017/01/01")

If IsDate(Inputdate) Then

Select Case Weekday(Inputdate, 2)

Case 1

MsgBox Inputdate & "は日曜日です"

Case 2

MsgBox Inputdate & "は月曜日です"

Case 3

MsgBox Inputdate & "は火曜日です"

Case 4

MsgBox Inputdate & "は水曜日です"

Case 5

MsgBox Inputdate & "は木曜日です"

Case 6

MsgBox Inputdate & "は金曜日です"

Case 7

MsgBox Inputdate & "は土曜日です"

End Select

End If

End Sub

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

VBA 【Weekday関数】日付の曜日を返す

taka

最新記事 by taka (全て見る)