Option Explicit
Sub test()
Dim temp As String
Dim temp1 As String
Dim myTime As Variant

'just to make sure that there's a fraction of a second
myTime = Now / 10

temp = Application.Text(myTime, "hh:mm:ss.000")
temp1 = Format(myTime, "hh:mm:ss.000")

MsgBox temp & vbLf & temp1

End Sub

VBAs format behaves slightly different than the =text() worksheet function.


Neal Zimm wrote:

Hi Bob -
I tried this and got the seconds just fine, but the tenths of seconds
always show as zero. Is there a ways to show tenths of secons?
thanks.
Neal Z.

"Bob Phillips" wrote:

format( t, "hh:mm:ss.000")


--

HTH

RP
(remove nothere from the email address if mailing direct)


"David Gerstman" wrote in message
...
How do I get fractions of a second from the serial time?
If I do
format( t, "hh:mm:ss.sss")

where t is the time I'm looking at, all the fractional part does is repeat
the number of seconds as a repeating fraction.

I tried dividing by 3600, 12, 12 in order but that gives me the wrong
answer...

David Gerstman




--

Dave Peterson