VB关于计算时间的编成

来源：百度知道 编辑：UC知道 时间：2024/04/29 10:26:04
VB关于计算时间的编成 我想使很多个时间 相加在一起 例如 58分20秒+58分20秒
我的姓名就是Q 号 如果明白 我会追加50分

你可以用dateadd函数对时间进行加减运算，当然需要加工一下。
'date1，date2两个要加的时间，函数返回结果

Private Function DateAddEx(ByVal Date1 As Date, Date2 As Date) As Date

'先加秒
DateAddEx = DateAdd("s", Second(Date1), Date2)
'加分
DateAddEx = DateAdd("n", Minute(Date1), DateAddEx)
'加小时
DateAddEx = DateAdd("h", Hour(Date1), DateAddEx)

End Function

你还可以根据自己的需要加入天，月，年等

用法举例： MsgBox DateAddEx(CDate("12:03:45"), CDate("1:03:05"))