Time formatting

[rgbanse]

Format(Now(), "hh:nn:ss&quot will yield 01:15:31
is there a format command to yield 01:15:31:45
thx
Jerry

 

[tazardous]

I found this DateDifference Function in another area and modified it to include the seconds portion. You could 'adjust' it to work for you by changing the final
DateDifference = .... so that only the 00:00:00:00 portion is returned.
------------------------------------

Public Function DateDifference(Date1 As Date, Date2 As Date) As String
Dim days As Double
Dim hours As Double
Dim minutes As Double
Dim seconds As Double
Dim difference As Double

difference = Date1 - Date2
days = Int(difference)
hours = 24 * (difference - days)
minutes = (hours - Int(hours)) * 60
seconds = (minutes - Int(minutes)) * 60

DateDifference = Format$(days, "0&quot & ":" _
& Format$(hours, "0&quot & ":" _
& Format$(minutes, "0&quot & ":" _
& Format$(seconds, "0&quot & " (" _
& Format$(days, "0&quot & " days, " _
& Format$(hours, "0&quot & " hours, " _
& Format$(minutes, "0&quot & " minutes, " _
& Format$(seconds, "0&quot & " seconds)"
End Function

 

[Geekmomz]

No, the smallest increment returned is seconds, so hh:nn:ss is as precise as it will give you in a date format.

 

[tazardous]

So sorry, I miss read the original question (seeing the format of it as dd:hh:mm instead of hh:mm:ss)

taz

 

[rgbanse]

Thx for the efforts
RGB