Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）

2015/04/17

日付時刻から時・分・秒を取得する関数

【書式】

time_hour = Hour ( time )

time_minute = Minute ( time )

time_second = Second ( time )

【引数・戻り値】

time ・・・時刻をあらわす値・文字列・数式
time_hour ・・・時刻（0～23 の範囲の整数）を表すバリアント型（内部処理形式 Integer）の値
time_minute ・・・分（0～59 の範囲の整数）を表すバリアント型（内部処理形式 Integer）の値
time_second ・・・秒（0～59 の範囲の整数）を表すバリアント型（内部処理形式 Integer）の値

引数の date に有効でない値を指定するとエラーになります。

日付時刻から時・分・秒を取得する関数の使用例

サンプルVBAソース

　
Sub Sample_HourMinuteSecond()

    Dim myDate1, myDate2
    Dim myTime1, myTime2
    
    myDate1 = #2/3/2011 2:30:20 AM#    '日付リテラル
    myDate2 = "2015年1月1日19時20分"
    myTime1 = #5:04:23 PM#             '時刻リテラル
    myTime2 = "午前6時"

    Debug.Print Hour(myDate1)
    Debug.Print Minute(myDate1)
    Debug.Print Second(myDate1)
    
    Debug.Print
    
    Debug.Print Hour(myDate2)
    Debug.Print Minute(myDate2)
    Debug.Print Second(myDate2)
    
    Debug.Print
    
    Debug.Print Hour(myTime1)
    Debug.Print Minute(myTime1)
    Debug.Print Second(myTime1)
    
    Debug.Print
    
    Debug.Print Hour(myTime2)
    Debug.Print Minute(myTime2)
    Debug.Print Second(myTime2)
    
    Debug.Print Hour(Time)          'Time 関数は、現在の時刻を取得
    Debug.Print Minute(Now())       'Now 関数は、現在の日付・時刻を取得
    Debug.Print Second(Date)        'Date 関数は、現在の日付を取得

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

　

Sub Sample_HourMinuteSecond()

Dim myDate1, myDate2

Dim myTime1, myTime2

myDate1 = #2/3/2011 2:30:20 AM# '日付リテラル

myDate2 = "2015年1月1日19時20分"

myTime1 = #5:04:23 PM# '時刻リテラル

myTime2 = "午前6時"

Debug.Print Hour(myDate1)

Debug.Print Minute(myDate1)

Debug.Print Second(myDate1)

Debug.Print

Debug.Print Hour(myDate2)

Debug.Print Minute(myDate2)

Debug.Print Second(myDate2)

Debug.Print

Debug.Print Hour(myTime1)

Debug.Print Minute(myTime1)

Debug.Print Second(myTime1)

Debug.Print

Debug.Print Hour(myTime2)

Debug.Print Minute(myTime2)

Debug.Print Second(myTime2)

Debug.Print Hour(Time) 'Time 関数は、現在の時刻を取得

Debug.Print Minute(Now()) 'Now 関数は、現在の日付・時刻を取得

Debug.Print Second(Date) 'Date 関数は、現在の日付を取得

End Sub

　

日付リテラル／時刻リテラル：「#」で日付や時刻を囲む表示形式のこと

実行結果

- VBA基本 Hour 関数, Minute 関数, Second 関数, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）

MsoAutoShapeType 列挙型オートシェイプオブジェクトの図形の種類 …

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

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

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

: セルのデータを固定長形式で複数のセルに分割する（TextToColumns メソッド・Parse メソッド）

固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

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

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

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

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

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

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

PREV: 日付時刻：年・月・日を取得（Year、Month、Day 関数）
NEXT: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）