Hur formaterar man Time så att man får med delar av sekunder?
Skall göra en linjelyssnare som utvärderat ett speciellt meddelande och tidstämplar det.

För att hämta millisekunder är det nog enklast att använda Timer().
Retunerar antal sekunder sedan midnatt.
För att bara få sekunder kan du skriva:
varTemp=Timer - (Timer\ 60)*60

Hej
Så här kan du göra.Millsek blir förmodligen inte helt korrekt.
Men du får med säkerhet ett TimeStamp som är unikt.

Option Explicit
Private Sub Command1_Click()
Dim sngTime As Single, milSek As String
sngTime = Time
milSek = Right$(CStr(sngTime), 2)
Label1.Caption = Format$(sngTime, "hh:mm:ss," & milSek)
End Sub

mvh
Sven

Hej igen
Efter kontroll fann jag att det inte blir så bra vid
midnattspassage.Eftersom jag tror att du är mer intresserad
av ett unikt TimeStamp än att millisekunderna är helt korrekta
skulle du kunna göra så här.

Option Explicit
Private Sub Command1_Click()
Randomize
Dim sngTime As Single, milSek As String
sngTime = Time
milSek = CStr(Int(Rnd * 100))
Label1.Caption = Format$(sngTime, "hh:mm:ss," & milSek)
End Sub

DS