添加一秒钟的部分时间

Question

我正在写一个excel VBA脚本，我想在一小时内添加一部分时间。

我使用时间函数将内容除以2，然后使用时间函数进行转换，并将结果添加到当前时间。

tt = Time(0, 0, Cells(1, 12) / 2)

我得到类型不匹配错误，因为除法的结果不是整数。

我最后要做的是执行以下添加。

newTime = timeCurrent + tt 

在这种情况下，是否可以使用Time函数替代？

Answer 1

考虑：

Sub TimeOnMyHands()
    Dim tt As Date
    tt = TimeSerial(0, 0, CInt(Cells(1, 12).Value / 2))
    MsgBox Format(tt, "hh:mm:ss.000")
End Sub

假设单元格包含秒作为简单数字而不是时间值。