日付時刻:年・月・日を取得(Year、Month、Day 関数)
日付から年・月・日を取得する関数
【書式】
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ソース
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 |
実行結果
関連記事
-
日付時刻:文字列から日付・時刻データを取得( DateValue 関数、TimeValue 関数 )
DateValue 関数(文字列から日付データを取得) 【書式】 date_va …
-
文字列:指定した文字の文字コードを取得する(Asc 関数)
Asc 関数 【書式】 result = Asc ( string ) 引数・戻 …
-
日付時刻:日付時刻から情報取得( DatePart 関数 )
DatePart 関数(日付・時刻の値から情報を取得) 【書式】 result …
-
文字列:2つの文字列を比較する(StrComp 関数)
StrComp 関数の使い方 【書式】 result = StrComp ( s …
-
列挙型変数(Enum ステートメント)
列挙型変数を使う 列挙型変数を使用するには、Enum ステートメントを使って、宣 …
-
ユーザー定義定数(Const ステートメント)
定数を使う ユーザー定義の定数を使用するには、Const ステートメントを使って …
-
書式を変換(Format 関数)
Format 関数の使い方 【書式】 result = Format ( exp …
-
変数がEmpty 値かどうかをチェックする( IsEmpty 関数 )
IsEmpty 関数の使い方 【書式】 result = IsEmpty ( e …
-
セルのデータを固定長形式で複数のセルに分割する(TextToColumns メソッド・Parse メソッド)
固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …
-
VBA で正規表現を使う(RegExp オブジェクト)
RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …