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

関連記事

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

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

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

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

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

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

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

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

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

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

Val 関数の使い方 Val 関数は、指定した文字列に含まれる数字を数値として …

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: 日付時刻：経過時間を取得（ Timer 関数）

Timer 関数の使い方【書式】 result = Timer () 【戻り値 …

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