Precizno vrijeme u VB6.0

Threaded Mode | Linear Mode

Precizno vrijeme u VB6.0

Author Message

Perro
Novi korisnik

Posts: 3
Group: Registered
Joined: Aug 2007
Status: Offline
Reputation: 0

Post: #1

Precizno vrijeme u VB6.0

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

22-08-2007 10:54 AM

Stazh
Redoviti posjetitelj

Posts: 84
Group: Registered
Joined: Mar 2006
Status: Offline
Reputation: 4

Post: #2

RE: Precizno vrijeme u VB6.0

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)

Pusti priče, uzmi Osječko!
"Programming is an art form that fights back"

22-08-2007 11:05 PM

Perro
Novi korisnik

Posts: 3
Group: Registered
Joined: Aug 2007
Status: Offline
Reputation: 0

Post: #3

RE: Precizno vrijeme u VB6.0

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

23-08-2007 10:53 AM

Stazh
Redoviti posjetitelj

Posts: 84
Group: Registered
Joined: Mar 2006
Status: Offline
Reputation: 4

Post: #4

RE: Precizno vrijeme u VB6.0

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.

Pusti priče, uzmi Osječko!
"Programming is an art form that fights back"

This post was last modified: 23-08-2007 01:37 PM by Stazh.

23-08-2007 01:36 PM

« Next Oldest | Next Newest »

View a Printable Version
Send this Thread to a Friend
Subscribe to this Thread | Add Thread to Favorites