Precizno vrijeme u VB6.0

[Perro]

Kako mogu dobiti zapis vremena u obliku hh:mm:ss.sss?
Trebaju mi milisekunde a trajanje procesa je više sati.
Znam da je Time() za hh:mm:ss ali ne znam kako dobiti milisekunde.
Probao sam s timerom na 100 ms tako da sam definirao string Time() & timerCounter ali mi on u 1 s dode do 400 ms a na 500 ms Time() već prijeđe na slijedeću sekundu...
Kužite moj problem? Thx unaprijed

[Stazh]

Imaš foru koja se zove TickCount, a to ti vidiš predstavlja broj milisekundi koje su prošle od kada su se startali Windowsi.

Tebi bi onda bilo dovoljno da upamtiš početni TickCount kada ti je proces započeo i snimiš ga u globalnu neku varijablu, i onda kada ti je potreban broj milisekundi koji je prošao od početka tvog procesa napraviš samo

Code:

' Na početku procesa
Dim iPocetni as Long = System.Environment.TickCount
...
' Sada kada ti je potrebna delta
Dim iRazlika as Long = iPocetni - System.Environment.TickCount
' I sada ti je samo preostalo da formatiraš ovaj iRazlika u šta želiš

(Javi ako ne znaš kako se formatira)

[Perro]

Staviti ću string: Time() & "." & iRazlika
koju moram na 1000 resetirati...
Hvala

[Stazh]

A kontam da sam te krivo skontao... Ako hoćeš baš precizno trenutno vrijeme onda napravi ovako:

Code:

Dim tVrijeme As DateTime = DateTime.Now
...
' I onda imaš pristup parametrima strukture DateTime među
' kojima je i Millisecond
' Znači:
Dim ims as integer = tVrijeme.Millisecond

Ja sam skontao prvo da ti hoćeš štopati vrijeme od početka procesa, a ovo je za trenutno točno vrijeme. Sry.