Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

2015/04/19 2015/08/26

Weekday 関数（日付から曜日を表す数値を返す）の使い方

【書式】

weekday_number = Weekday ( date [, firstdayofweek ] )

引数・戻り値

date ・・・日付を表す文字列・数値を指定します。
firstdayofweek ・・・週の第 1 日目の曜日（定数：下表参照）を指定します。省略すると、定数 vbSunday を指定したとみなされます。
weekday_number ・・・何曜日であるかを表す整数を表すバリアント型 (内部処理形式 Integer) の値。1 ～ 7 の数値で、引数 firstdayofweek の値によって結果は変化します。（ firstdayofweek で指定した曜日を「1」とした結果を返します。）

引数の date が Null 値を含む場合は、Null 値を返します。

曜日を表す定数（ firstdayofweek ）

値	定数	内容
0	vbUseSystem	NLS（システムの各国対応）APIの設定値を使用
1（既定値）	vbSunday	日曜
2	vbMonday	月曜
3	vbTuesday	火曜
4	vbWednesday	水曜
5	vbThursday	木曜
6	vbFriday	金曜
7	vbSaturday	土曜

WeekdayName 関数（日付から曜日名を返す）の使い方

【書式】

weekday_string = WeekdayName ( weekday_number [, abbreviate, firstdayofweek ] )

引数・戻り値

weekday_number ・・・曜日を示す数値を指定します。各曜日を表す数値は、引数の firstdayofweek の設定値によって異なります。
abbreviate ・・・曜日名を省略するかどうかを示すブール値（ True：省略する／ False：省略しない）を指定します（省略可 ⇒ 規定値：False）
firstdayofweek ・・・週の第 1 日目の曜日（定数：Weekday 関数「曜日を表す定数」参照）を指定します。省略すると、定数 vbSunday を指定したとみなされます。
weekday_string ・・・地域ごとの曜日を表す文字列。
日本（abbreviate：False）：「日曜日」「月曜日」「火曜日」…「土曜日」
日本（abbreviate：True）：「日」「月」「火」…「土」

Weekday 関数、WeekdayName 関数

サンプルVBAソース

　
Sub Sample_Weekday()

    Dim MyDate1, MyDate2, MyWeekDay1, MyWeekDay2
    
    MyDate1 = #1/1/2000#
    MyDate2 = "2015/4/1"
    
    MyWeekDay1 = Weekday(MyDate1)           '週の第1日目の曜日は省略されているので日曜日
    MyWeekDay2 = Weekday(MyDate2, vbMonday) '週の第1日目の曜日は月曜日

    MsgBox MyWeekDay1 & "：" & WeekdayName(MyWeekDay1) & Chr(13) & _
           MyWeekDay2 & "：" & WeekdayName(MyWeekDay2, True, vbMonday)
           
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

　

Sub Sample_Weekday()

Dim MyDate1, MyDate2, MyWeekDay1, MyWeekDay2

MyDate1 = #1/1/2000#

MyDate2 = "2015/4/1"

MyWeekDay1 = Weekday(MyDate1) '週の第1日目の曜日は省略されているので日曜日

MyWeekDay2 = Weekday(MyDate2, vbMonday) '週の第1日目の曜日は月曜日

MsgBox MyWeekDay1 & "：" & WeekdayName(MyWeekDay1) & Chr(13) & _

MyWeekDay2 & "：" & WeekdayName(MyWeekDay2, True, vbMonday)

End Sub

　

実行結果

- VBA基本 VBA基本, weekday 関数, weekdayname 関数, エクセルVBA, 曜日取得

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 式を評価し、結果（真・偽）に応じた式・値を返す（IIf 関数）

IIf 関数の使い方 IIf（アイイフ）関数は、式を評価してその結果（真・偽） …

: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）

現在の日付・時刻を取得・設定現在の日付・時刻を取得（Now 関数、Date 関 …

: 指定した数のスペースを挿入する（Spc 関数）

指定した数のスペースを挿入指定した数のスペースを挿入するには、Spc 関数を使 …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

: 文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）

LCase 関数・UCase 関数の使い方【書式】＜アルファベットの大文字 …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

PREV: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）
NEXT: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）