2011年12月11日日曜日

[ExcelVBA] TimeSerial関数


■構文
TimeSerial(hour, minute, second)

■説明
時、分、秒を引数に時間を返す
第一引数:時にあたる部分。0~23の範囲で指定。
第二引数:分にあたる部分。0~59の範囲で指定。
第三引数:秒にあたる部分。0~59の範囲で指定。

■サンプルコード
Option Explicit

Sub SampleCode()
    Debug.Print TimeSerial(10, 20, 30) '10:20:30
    Debug.Print TimeSerial(10, 80, 30) '11:20:30 分は、繰り上がり発生
    Debug.Print TimeSerial(10, 20, 90) '10:21:30 秒は、繰り上がり発生
End Sub

0 件のコメント: