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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列：文字列左から指定文字数取得（Left 関数,LeftB 関数）

Left 関数・LeftB 関数の使い方【書式】 result_left = …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: 乱数を生成する（Rnd 関数）

Rnd 関数の使い方 Rnd 関数は、0 以上、1 未満の範囲の乱数を単精度浮動 …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

IsObject 関数の使い方【書式】 result = IsObject ( …

: エラー（CVErr 関数・IsError 関数・Error 関数）

CVErr 関数（エラー番号をエラー値に変換する）の使い方【書式】 retur …

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

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

: 文字列：２つの文字列を比較する（StrComp 関数）

StrComp 関数の使い方【書式】 result = StrComp ( s …

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