VBA减去date和时间

Dim dtmStart As Date, dtmEnd As Date, dblDuration As Double dtmStart = "1900/01/01 08:10:00" dtmEnd = "1900/01/03 21:16:00" dblDuration = DateDiff("hh:mm", dtmEnd, dtmStart) 'dblDuration = dtmEnd - dtmStart MsgBox Format(dblDuration, "hh:mm") 

我将如何扣除“yyyy / mm / dd hh：mm：ss”格式的两个date？ 我尝试了上述两种方法，都没有工作

Answer 1

 Sub Test() Dim dtmStart As Date, dtmEnd As Date, dblDuration As Double dtmStart = "1900/01/01 08:10:00" dtmEnd = "1900/01/03 21:16:00" dblDuration = dtmEnd - dtmStart MsgBox Application.Text(dblDuration, "[hh]:mm") End Sub 

Answer 2

那么我是一个简单的丹麦人，我喜欢它简单，所以我只是这样做：

 Dim dtmStart As Date, dtmEnd As Date, dblDuration As Date Start: 'STARTTIME dtmStart = Time Slut: 'SLUTTIDEN dtmEnd = Time dblDuration = dtmEnd - dtmStart Debug.Print "Modul 1 Slut " & Time; " Run = "; dblDuration