Dim time1,time2 As String
Dim t1,t2 As Integer
time1="23:01"
time2="1:59"
t1=Cint(mid(time1,1,Instr(time1,":")-1))*60+Cint(mid(time1,Instr(time1,":")+1,2))
t2=Cint(mid(time2,1,Instr(time2,":")-1))*60+Cint(mid(time2,Instr(time2,":")+1,2))
output.show(t1+t2)
转换为分钟,后面你自己再转为小时+分钟就OK了,其实很多时间数据结构很重要