高分求救:关于在VBA中的日期时间运算

[dule_yu]

举例，两个date time如
'2009-01-19 00:00:00'
'2009-01-19 00:01:15'

要求进行相减得结果,用hh:mm:ss格式
如'00:01:15'

[northwolves]

Sub macro1()
d1 = "2009-01-19 00:00:00"
d2 = "2009-01-19 00:01:15"
MsgBox Format(CDate(d2) - CDate(d1), "hh:nn:ss")
End Sub

[gracexu]

顶一下楼上的。

[netsocket]

不懂，帮顶

[opens555]

不懂，帮顶

[iceriver_1980]

Sub tmp()

Dim da As Variant
Dim db As Variant

'假定：单元格(2,2)和(2,3)分别有下面两个数据（自定义格式：yyyy-mm-dd hh:mm:ss）

'2009-2-5 09:14:00 cell(2,2)
'2009-2-5 10:16:02 cell(2,3)

da = ActiveSheet.Cells(2, 2)
db = ActiveSheet.Cells(2, 3)

'假定输出数据写入单元格(2,4)
ActiveSheet.Cells(2, 4) = Format(db - da, "hh:mm:ss")
ActiveSheet.Cells(2, 4).NumberFormatLocal = "hh:mm:ss"

End Sub