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

関連記事

: 配列の要素数を取得する（UBound 関数・LBound 関数）

UBound 関数・LBound 関数【書式】 result = UBound …

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

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

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

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

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

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

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

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

: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

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

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

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

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

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