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

関連記事

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

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

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

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

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

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

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

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

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

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

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

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

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

: VBA で正規表現を使う（RegExp オブジェクト）

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

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