Function FormatInterval (ByVal Interval As Date, _ ByVal Fmt As String) As String Dim Days As Long, Hours ...
support.microsoft.com