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

関連記事

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

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

: 変数が日付型かどうかをチェックする（ IsDate 関数）

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

: 乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）

Randomize ステートメントの使い方 Rnd 関数を使用する前に使用しま …

: 指定した数値を文字列に変換する（Str 関数）

Str 関数の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: オブジェクトの書式をクリアする（ClearFormats メソッド）

ClearFormats メソッド対象となるオブジェクトの書式（スタイル）を初 …

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

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

: 文字列：文字列右から指定文字数取得（Right 関数,RightB 関数）

Right 関数・RightB 関数の使い方【書式】 result_righ …

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