Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Precizno vrijeme u VB6.0
Author Message
Perro Offline
Novi korisnik
*

Posts: 3
Joined: Aug 2007
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 Offline
Redoviti posjetitelj
**

Posts: 84
Joined: Mar 2006
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 Offline
Novi korisnik
*

Posts: 3
Joined: Aug 2007
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 Offline
Redoviti posjetitelj
**

Posts: 84
Joined: Mar 2006
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 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)