Sub DateBetweenTwoDates(D1 As String, T1 As String, D2 As String, T2 As String)
Dim start, endTime, t As Long
start = DateTime.DateTimeParse(D1, T1)
endTime = DateTime.DateTimeParse(D2, T2)
Dim days, hours, minutes, seconds As Int
t = Abs(endTime - start)
days = Floor(t / DateTime.TicksPerDay)
hours = Floor((t Mod DateTime.TicksPerDay) / DateTime.TicksPerHour)
minutes = Floor((t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute)
seconds = Floor((t Mod DateTime.TicksPerMinute) / DateTime.TicksPerSecond)
Log("Days = " & days)
Log("Hours = " & hours)
Log("Minutes = " & minutes)
Log("Seconds = " & seconds)
Msgbox("Days = " & days & CRLF & "Hours = " & hours & CRLF & "Minutes = " & minutes & CRLF & "Seconds = " & seconds, "OK")
End Sub