determining fractional seconds from serial time

[Guest]

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

 

[Bob Phillips]

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


--

HTH

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

 

[Guest]

Hi Dave -
I tired this after reading your post and got a mis match error.
Sub test()
Dim temp As String
temp = ""
temp = FormatDateTime(Now, "hh:mm:ss.000")
MsgBox temp
Exit Sub

my need is to measure a time interval in tenths of seconds.
Can you help please?
thanks,
Neal Z.

 

[Guest]

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.

 

[Dave Peterson]

But _Bob_ used plain old Format--not FormatDateTime.

Did you try that?

 

[Dave Peterson]

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.

 

[Guest]

Dear Dave -
Thanks so much. Yes the vba format does differ from the application.text
approach.
a.text WORKS. (and the other does NOT)

I ran the sub below about 20 times. Temp1 always showed .000 and temp
varied the fraction.

Thanks again,
Neal