VBA 빼기 날짜 및 시간

Question

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"형식으로 두 날짜를 빼는 방법은 무엇입니까? 나는

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