Sub dateFmt()
'from
'http://www.access-programmers.co.uk/forums/showthread.php?p=1515802
Dim d1 As Date
Dim d2 As Date
Dim x As Single, y As Single
d1 = #11/12/2016 1:00:00 AM#
d2 = #11/13/2016 11:11:15 PM#
Debug.Print "A", Format((d1 - d2), "hhh:mm:ss") ' from post 9
Debug.Print "B", DateDiff("s", d1, d2)
'Get Difference in seconds
x = DateDiff("s", d1, d2)
Debug.Print "1 seconds", x
'Get difference in Minutes
x = x / 60
Debug.Print "2 minutes", x
'Get difference in Hours
x = x / 60
Debug.Print "3 hours", x
'Calculate fractional hours into hours and minutes
y = (x - CInt(x)) * 60
Debug.Print "4 hrs:min", CInt(x) & " hrs And " & y & " Minutes"
'Calculate Hours and fractional minutes into Hours, minutes and seconds
Debug.Print "5 hrs:min:sec", CInt(x) & ":" & CInt(y) & ":" & (y - CInt(y)) * 60
End Sub