7,785
社区成员
发帖
与我相关
我的任务
分享关于时间运算的问题，请指教！
关于时间运算的问题，请指教！
比如说现在有时间a=1:32:45,b=0:45:56，
想得到c，c是a和b的差值（c=a-b），
并且c的格式仍然是#:##:##,
应该如何实现？请指教！
...全文
请发表友善的回复…
发表回复
霖湘凝 2004-11-13
- 打赏
- 举报
谢谢！！！
slmn 2004-11-13
- 打赏
- 举报
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
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
