Post Reply  Post Thread 
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
Find all posts by this user Quote this message in a reply
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
Visit this user's website Find all posts by this user Quote this message in a reply
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
Find all posts by this user Quote this message in a reply
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
Visit this user's website Find all posts by this user Quote this message in a reply
Post Reply  Post Thread 

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

Forum Jump: