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

関連記事

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

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

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

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

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

: 変数がEmpty 値かどうかをチェックする（ IsEmpty 関数）

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

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

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

: VBA の演算子（論理演算子：And、Eqv、Imp、Not、Or、Xor）

論理演算子論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: フォント太字・斜体（Bold, Italic, FontStyle プロパティ）

太字の設定（Bold プロパティ） Bold プロパティは、フォントを太字にする …

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

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

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