VBA減去日期和時間

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」格式中的兩個日期？我想上面兩種方法既不工作VBA減去日期和時間

來源

2012-06-28 user1384831

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

來源

2012-06-28 22:08:55

謝謝！幾小時左右的方括號就是我所需要的：| – user1384831

+1我很驚訝你沒有在評論中填充這個 –

@JFC - 即使評論有限制 –

嗯，我是一個簡單的丹麥人，我喜歡簡單，所以我只是做了這樣的：

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

來源

2013-05-29 23:31:45 Alex

VBA減去日期和時間

回答

相關問題