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

関連記事

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

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

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

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

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: 日付時刻：日付時刻から情報取得（ DatePart 関数）

DatePart 関数（日付・時刻の値から情報を取得）【書式】 result …

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

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

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

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

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

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

: 文字列：２つの文字列を比較する（StrComp 関数）

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

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

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

: 式を評価し、結果（真・偽）に応じた式・値を返す（IIf 関数）

IIf 関数の使い方 IIf（アイイフ）関数は、式を評価してその結果（真・偽） …

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