サイトについて      連絡先   検索

VBA TimeSerial 関数

はじめに

Excel VBA マクロの TimeSerial 関数を紹介します。

TimeSerial 関数は、指定した時分秒の時刻を返します。

変数に入れた数値から時間を取得したいときに使用します。

  • 目次
    • 構文
    • 解説
    • 使用例

構文

TimeSerial(, , )
指定したの時刻を取得します。

引数「時」時の値を指定します。
引数「分」分の値を指定します。
引数「秒」秒の値を指定します。
戻り値の型日付型 (Date)

解説

引数「時」には0 ~ 23の他に -1 以下や 24 以上も指定できます。24なら翌日の 0 時になります。

引数「分」には0 ~ 59の他に -1 以下や 60 以上も指定できます。60なら 1 時間後の 0 分になります。

引数「秒」には0 ~ 59の他に -1 以下や 60 以上も指定できます。60なら 1 分後の 0 秒になります。

結果の日付は、日付型の初期値1899/12/30になります。

使用例


Dim t As Date

t = TimeSerial(1, 2, 3)
Debug.Print(t) ' 1:02:03

t = TimeSerial(24, 2, 3) ' 時が 24
Debug.Print(t) ' 1899/12/31 0:02:03

t = TimeSerial(1, -1, 3) ' 分が -1
Debug.Print(t) ' 0:59:03

t = TimeSerial(1, 60, 3) ' 分が 60
Debug.Print(t) ' 2:00:03

t = TimeSerial(1, 2, -1) ' 秒が -1
Debug.Print(t) ' 1:01:59

t = TimeSerial(1, 2, 60) ' 秒が 60
Debug.Print(t) ' 1:03:00

時刻を指定するのに変数の値を使えるようになります。


Dim 時 As Integer
Dim 分 As Integer
Dim 秒 As Integer
時 = 1 ' Hour(Now) など
分 = 2 ' Minute(Now) など
秒 = 3 ' Second(Now) など

Dim t As Date

t = TimeSerial(時, 分, 秒)
Debug.Print(t) ' 1:02:03
  • 目次
    • 構文
    • 解説
    • 使用例