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

日付時刻：年・月・日を取得（Year、Month、Day 関数）

2015/04/16

日付から年・月・日を取得する関数

【書式】

date_year = Year ( date )

date_month = Month ( date )

date_day = Day ( date )

【引数・戻り値】

date ・・・日付をあらわす値・文字列・数式
date_year ・・・年を表すバリアント型（内部処理形式 Integer）の値
date_month ・・・月（1～12 の範囲の整数）を表すバリアント型（内部処理形式 Integer）の値
date_day ・・・日（1～31 の範囲の整数）を表すバリアント型（内部処理形式 Integer）の値

引数の date に有効でない値を指定するとエラーになります。

日付から年・月・日を取得する関数の使用例

サンプルVBAソース

　
Sub Sample_YearMonthDay()

    Dim myDate1, myDate2, myDate3, myDate4, mydate5
    Dim myNumber As Long
    
    myDate1 = "2015年10月1日"
    myDate2 = #11/30/1999#
    myDate3 = "2000-2-1"
    myDate4 = "H23/5/20"
    mydate5 = "昭和59年8月25日"
    myNumber = 36955
    
    Debug.Print Year(myDate1)
    Debug.Print Year(myDate2)
    Debug.Print Year(myDate3)
    Debug.Print Year(myDate4)
    Debug.Print Year(mydate5)
    Debug.Print Year(myNumber)
    Debug.Print Year(0)
    
    Debug.Print
    
    Debug.Print Month(myDate1)
    Debug.Print Month(myDate2)
    Debug.Print Month(myDate3)
    Debug.Print Month(myDate4)
    Debug.Print Month(mydate5)
    Debug.Print Month(myNumber)
    Debug.Print Month(0)
    
    Debug.Print
    
    Debug.Print Day(myDate1)
    Debug.Print Day(myDate2)
    Debug.Print Day(myDate3)
    Debug.Print Day(myDate4)
    Debug.Print Day(mydate5)
    Debug.Print Day(myNumber)
    Debug.Print Day(0)

End Sub

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

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

　

Sub Sample_YearMonthDay()

Dim myDate1, myDate2, myDate3, myDate4, mydate5

Dim myNumber As Long

myDate1 = "2015年10月1日"

myDate2 = #11/30/1999#

myDate3 = "2000-2-1"

myDate4 = "H23/5/20"

mydate5 = "昭和59年8月25日"

myNumber = 36955

Debug.Print Year(myDate1)

Debug.Print Year(myDate2)

Debug.Print Year(myDate3)

Debug.Print Year(myDate4)

Debug.Print Year(mydate5)

Debug.Print Year(myNumber)

Debug.Print Year(0)

Debug.Print

Debug.Print Month(myDate1)

Debug.Print Month(myDate2)

Debug.Print Month(myDate3)

Debug.Print Month(myDate4)

Debug.Print Month(mydate5)

Debug.Print Month(myNumber)

Debug.Print Month(0)

Debug.Print

Debug.Print Day(myDate1)

Debug.Print Day(myDate2)

Debug.Print Day(myDate3)

Debug.Print Day(myDate4)

Debug.Print Day(mydate5)

Debug.Print Day(myNumber)

Debug.Print Day(0)

End Sub

　

実行結果

- VBA基本 day 関数, month 関数, VBA基本, year 関数, エクセルVBA, 日付時刻

Tweet

Message コメントをキャンセル

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

関連記事

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

: 日付時刻：日付時刻から情報取得（ DatePart 関数）

DatePart 関数（日付・時刻の値から情報を取得）【書式】 result …

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

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

: XlThemeColor 列挙型

XlThemeColor 列挙定数値内容 xlThemeColorDark …

: インプットボックスを表示する（InputBox関数・InputBoxメソッド）

「InputBox関数」と「InputBoxメソッド」の違い「InputBox …

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

: 変数がEmpty 値かどうかをチェックする（ IsEmpty 関数）

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

: 文字列：定数（改行・タブ）

改行・タブの定数これらの定数は、使用前に定義する必要はありません。コード中のど …

: 変数が配列かどうかをチェックする（ IsArray 関数）

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

PREV: VBA の演算子（演算子の優先順位）
NEXT: 日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）