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

関連記事

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

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

: 色の設定（Color プロパティ・RGB 関数）

Color プロパティ Color プロパティは、指定したオブジェクトの色を取得 …

: 式の値に応じて多分岐を行う（Switch 関数）

Switch 関数の使い方 Switch 関数は、「式・値」を対にして指定して …

: 色を設定する（QBColor 関数）

QBColor 関数 QBColor 関数は、指定した色番号に対応するRGB コ …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

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

: コレクション（Collection）オブジェクト「連想配列」

コレクション（Collection）オブジェクトの使い方【書式】 Dim my …

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

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

: 日付時刻：日付時刻データを計算（ DateAdd 関数）

DateAdd 関数（日付・時刻の値を加算・減算結果を取得）【書式】 resu …

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）

太字の設定（Bold プロパティ） Bold プロパティは、フォントを太字にする …

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