ページコンテンツ
日付の曜日を返す【Weekday関数】
今回は引数で指定された日付の曜日を返す【Weekday関数】について解説したいと思います。
Weekday関数の書式
Weekday関数の書式は以下の通りです。
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 関数の使用例
次のコードはinputBoxを使って入力された日付の曜日を返すコードです。
caseの部分が数字になっていますがvbSunday等の定数でも可能ですのでご自由にお使いください。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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フォロー
ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63Sponsored Link
国本温子,緑川吉行,できるシリーズ編集部 インプレス 2016-06-17
コメントを残す