VBA 時刻を取得するTime関数 Hour関数 Minute関数 Second関数

Time【ﾀｲﾑ】関数

パソコンに設定されている現在の時間を返します。Time【ﾀｲﾑ】関数には、引数はありません。

Time

Sub 現在時間表示()
MsgBox Time
End Sub

Sub 現在時間表示2()
Range("A1") = Time
End Sub

引数Time【ﾀｲﾑ】に指定した時刻から時を取得するには、Hour【ｱﾜｰ】関数を使用します。

Hour(Time)
【戻り値】バリアント型（内部処理形式IntegerのVariant)

Time【ﾀｲﾑ】（必須）
時刻を表す任意の値、数式、文字列式または、現在の時刻を取得するTime【ﾀｲﾑ】関数を指定します。時刻の時を0～23の整数（バリアント型）で返します。引数Time【ﾀｲﾑ】に指定した値が時刻と認識されない場合はエラーが発生します。値が時刻として認識されるかどうかを調べるIsDate【ｲｽﾞﾃﾞｲﾄ】関数を使用してエラーを防ぎます。

Sub 現在時表示()
Dim 時 As Variant
時 = Hour(Time)
MsgBox 時
End Sub

引数Time【ﾀｲﾑ】に指定した時刻から分を取得するには、Minute【ﾐﾆｯﾂ】関数を使用します。

Minute(Time)
【戻り値】バリアント型（内部処理形式IntegerのVariant)

Time【ﾀｲﾑ】（必須）
時刻を表す任意の値、数式、文字列式または、現在の時刻を取得するTime【ﾀｲﾑ】関数を指定します。時刻の分を0～59の整数（バリアント型）で返します。引数Time【ﾀｲﾑ】に指定した値が時刻と認識されない場合はエラーが発生します。値が時刻として認識されるかどうかを調べるIsDate【ｲｽﾞﾃﾞｲﾄ】関数を使用してエラーを防ぎます。

Sub 現在分表示()
Dim 分 As Variant
分 = Minute(Time)
MsgBox 分
End Sub

引数Time【ﾀｲﾑ】に指定した時刻から秒を取得するには、Second【ｾｺﾝﾄﾞ】関数を使用します。

Second(Time)
【戻り値】バリアント型（内部処理形式IntegerのVariant)

Time【ﾀｲﾑ】（必須）
時刻を表す任意の値、数式、文字列式または、現在の時刻を取得するTime【ﾀｲﾑ】関数を指定します。時刻の秒を0～59の整数（バリアント型）で返します。引数Time【ﾀｲﾑ】に指定した値が時刻と認識されない場合はエラーが発生します。値が時刻として認識されるかどうかを調べるIsDate【ｲｽﾞﾃﾞｲﾄ】関数を使用してエラーを防ぎます。

Sub 現在秒表示()
Dim 秒 As Variant
秒 = Second(Time)
MsgBox 秒
End Sub

以上で、Time【ﾀｲﾑ】関数、 Hour【ｱﾜｰ】関数、 Minute【ﾐﾆｯﾂ】関数、 Second【ｾｺﾝﾄﾞ】関数についての解説を終了します。ありがとうございました。

日付や時刻の関数一覧表です。
関数名がリンクになっています。
クリックすると詳細説明ページが開きます。