この記事ではTimeSerial関数の使い方と注意点について解説します。
他のよく使うVBA関数一覧はこちら。

TimeSerial関数の使い方と注意点

TimeSerial関数は、指定した時・分・秒から時刻を生成して返す関数です。
時間計算や処理の基点となる時刻を作るときによく利用されます。

構文

TimeSerial(時, 分, 秒)

時 : 0～23。ただし0未満や24以上を指定すると補正される
分 : 0～59。ただし0未満や60以上を指定すると繰り下げ・繰り上げ計算されます
秒 : 0～59。ただし0未満や60以上を指定すると繰り下げ・繰り上げ計算されます
戻り値 : 指定した時分秒を表す時刻（Date型）。日付部分は既定で「1899/12/30」が設定されます。

使用例

時刻を作成する

Sub Sample()
    Debug.Print TimeSerial(14, 30, 0)
End Sub

▶ 出力結果

14:30:00

分や秒の繰り上げ

分や秒に範囲外の値を指定すると自動補正されます。

まずは分に1時間を超える値を指定した場合、

Sub Sample()
    Debug.Print TimeSerial(10, 75, 0)   ' 分に75を指定
End Sub

▶ 出力結果

11:15:00

1時間より多い分の15分が繰り上げられ、11時15分となります。

秒に1分を超える値を指定した場合も同様に、

Sub Sample()
    Debug.Print TimeSerial(8, 0, 90)    ' 秒に90を指定
End Sub

▶ 出力結果

8:01:30

1分より多い分の30秒が繰り上げられ、8時1分30秒となります。

負の値を指定した繰り下げ

0未満を指定すると前の時間に補正されます。

まずは分に0未満の値を指定した場合、

Sub Sample()
    Debug.Print TimeSerial(12, -15, 0)
End Sub

▶ 出力結果

11:45:00

12時から15分が引かれ、11時45分00秒となります。

次に秒に0未満の値を指定した場合、

Sub Sample()
    Debug.Print TimeSerial(12, 0, -15)
End Sub

▶ 出力結果

11:59:45

12時から15秒が引かれ、11時59分45秒となります。

⚠️注意

時の補正は分・秒と異なる

分や秒は範囲外の値を指定すると繰り上げ・繰り下げが行われます。
一方「時」の場合、補正方法が異なるため注意が必要です。

Sub Sample()
    Debug.Print TimeSerial(0, 0, 0)    ' 0時ちょうど
    Debug.Print TimeSerial(-2, 0, 0)   ' -2時間
    Debug.Print TimeSerial(25, 0, 0)   ' 25時
End Sub

▶ 出力結果

0:00:00 
2:00:00 
1899/12/31 1:00:00

0未満を指定した場合
-2のように負の値を指定すると「その絶対値が加算」されます。
基準日が前日に繰り下がるわけではありません。
→ TimeSerial(-2,0,0)は「2:00:00」となる（前日にはならない）。
24以上を指定した場合
分や秒と同様に繰り上がりが発生します。
この場合は「基準日（1899/12/30）」から翌日に補正されるため、日付部分も変化して表示されます。
→ TimeSerial(25,0,0)は「1899/12/31 1:00:00」

その他のVBA関数

【Excel VBA】VBAでよく使う関数一覧＆基本の使い方

参考リンク

TimeSerial 関数（Microsoft Learn）