How to calculate the time difference in VBA

[kato01]

Hello,

I am trying to calculate the time difference between two times defined by date and time
I need some help since, the result I get does not seem to be correct.
Please c]see code below.
What am I missing?

Thank you

Sub time_difference()

D1 = "08/26/23"
T1 = "13:19"
D2 = "08/27/23"
T2 = "04:48"
dt1 = D1 + " " + T1
dt2 = D2 + " " + T2
DIF_S = DateDiff("n", dt1, dt2)
DIF_M = Int(DIF_S / 60)
DIF_S = DIF_S - DIF_M * 60
DIF_H = Int(DIF_M / 60)
DIF_M = DIF_M - DIF_H * 60
Debug.Print i, D2, T2, D1, T1, DateDiff("n", dt1, dt2), DIF_H, DIF_M, DIF_S

end sub

 

[NoSparks]

Does this help at all ?

Option Explicit

Sub my_time_difference()
Dim D1 As String, T1 As String, D2 As String, T2 As String
Dim dt1 As Date, dt2 As Date, diff As Date

D1 = "08/26/23"
T1 = "13:19"
D2 = "08/27/23"
T2 = "04:48"

dt1 = D1 & " " & T1
dt2 = D2 & " " & T2

diff = dt2 - dt1

'Debug.Print diff
Debug.Print CLng(Int(diff)) & " days"
Debug.Print Hour(diff) & " hours"
Debug.Print Minute(diff) & " minutes"
Debug.Print Second(diff) & " seconds"

End Sub

 

[kato01]

perfect, thank you

 

[NoSparks]

you're welcome