自定义函数:E2 = SumTime(B2:D2)
代码:
Function SumTime(rg As Range) As Single
SumTime = 0
If rg.Count = 0 Then End
For Each a In rg
vv = a.Value
tt = Cal(vv)
SumTime = SumTime + tt
Next
End Function
Function Cal(vv) As Single
Cal = 0
d = Split(vv,"-")
t1 = TimeValue(d(0))
t2 = TimeValue(d(1))
h1 = Hour(t1) + Minute(t1) / 60 + Second(t1) / 3600
h2 = Hour(t2) + Minute(t2) / 60 + Second(t2) / 3600
Cal = h2 - h1
End Function