关于时间运算的问题，请指教！

Question

     关于时间运算的问题，请指教！     比如说现在有时间a=1:32:45,b=0:45:56，
     想得到c，c是a和b的差值（c=a-b），
     并且c的格式仍然是#:##:##,
     应该如何实现？请指教！
     

Answer 1

Dim s As Long
Dim x As Integer
Dim y As Integer
Dim c As String
a = "1:32:45"
b = "1:45:52"
s = Abs(DateDiff("s", TimeValue(a), TimeValue(b)))
x = s - Int(s / 60) * 60
s = Int(s / 60)
y = s - Int(s / 60) * 60
s = Int(s / 60)
c = Str(s) & ":" & Str(y) & ":" & Str(x)
Print c