日付時刻:年・月・日を取得(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 |
実行結果
関連記事
-
変数がオブジェクト型かどうかをチェックする( IsObject 関数 )
IsObject 関数の使い方 【書式】 result = IsObject ( …
-
インプットボックスを表示する(InputBox関数・InputBoxメソッド)
「InputBox関数」と「InputBoxメソッド」の違い 「InputBox …
-
文字列:文字列を検索してその最初の文字位置を返す(InStr 関数,InStrB 関数)
InStr 関数・InStrB 関数の使い方 【書式】 result = { I …
-
Erase ステートメント(配列の初期化・動的配列のメモリ解放)
Erase ステートメントの使い方 【書式】 Erase myArray [, …
-
色を設定する(QBColor 関数)
QBColor 関数 QBColor 関数は、指定した色番号に対応するRGB コ …
-
出力位置、書き込み位置を設定(Tab 関数)
出力位置、書き込み位置を設定 Tab 関数 は、Print メソッド、または P …
-
日付時刻:日付・時刻の間隔を取得( DateDiff 関数 )
DateDiff 関数の使い方 【書式】 result = DateDiff ( …
-
Option Compare ステートメント
Option Compare ステートメントの使い方 【書式】 Option C …
-
指定した数値に対応する選択肢の値・数式を返す(Choose 関数)
Choose 関数 の使い方 Choose 関数は、指定されたインデックス値(1 …
-
文字列:2つの文字列を比較する(StrComp 関数)
StrComp 関数の使い方 【書式】 result = StrComp ( s …