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

関連記事

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

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

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

: 対象のオブジェクトをクリアする（Clear メソッド）

Clear メソッド対象となるオブジェクト全体をクリアします。Range オブ …

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

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

: 書式を変換（Format 関数）

Format 関数の使い方【書式】 result = Format ( exp …

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

Str 関数の使い方 Str 関数は、数値・数式を文字列に変換して返す関数です …

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

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

: 画面の更新を停止（ScreenUpdating プロパティ）

画面の更新を停止マクロを実行すると、画面が更新されます。これにより、実行速度が …

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

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

: 文字列：文字列を検索してその最初の文字位置を返す（InStr 関数,InStrB 関数）

InStr 関数・InStrB 関数の使い方【書式】 result = { I …

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