Option Compare Database
Option Explicit
Public Function HrsMinsSecs(TimeVar As Double)
Dim Hrs As Long, Mins As String, Secs As String
If IsNull(TimeVar) Then
HrsMinsSecs = Null
Else
Mins = Format(DatePart("n", TimeVar), "00")
Secs = Format(DatePart("s", TimeVar), "00")
Hrs = (Fix(TimeVar) * 24) + DatePart("h", TimeVar)
HrsMinsSecs = Hrs & ":" & Mins & ":" & Secs
End If
End Function