如何实现时间的相加减

Question

我有个程序，在设计时间断的时候， 有设计20:00:00到23：59：59，也有的时候是22：00：00到 第二天的2：00：00 ，在做比较是要分开，如果是23：00：00不用加24小时，如果是2：00：00要加24小时。现在的问题是如何加24小时。
也就是要如何实现时间的相加减。

Answer 1

Private Sub Command1_Click()
MsgBox addtime(#10:59:59 PM#, 4)
'MsgBox addtime2(#10:59:59 PM#, 4)
End Sub
Function addtime(ByVal nowtime As Date, ByVal hours As Integer) As Date
addtime = Format(TimeSerial(Hour(nowtime) + hours, Minute(nowtime), Second(nowtime)), "hh:mm:ss")
End Function
Function addtime2(ByVal nowtime As Date, ByVal hours As Integer) As Date
addtime2 = Format(DateAdd("h", hours, nowtime), "hh:mm:ss")
End Function

Answer 2

使用DateDiff函数
或用mid、substring函数截取后再相减