GetTickCount ili provedeno vreme na sys ...

[ `and @ 25.08.2004. 00:39 ] @

E treba mi za nesto provedeno na racunaru ... i tako ja kopam ... dodjem do GetTickCount funkcije u Kernel-u i dobijem provedeno vreme u milisecundama ... i sad me zanima ( ne ide mi bas sada nesto ova logika/matematika ) da li ima bolje resenje od ovoga :

Code:

Private Sub Timer1_Timer()

s = CInt(GetTickCount / 1000)

h = (s - (s Mod 3600)) / 3600
m = (s - (s Mod 60)) / 60 - (h * 60)
sc = s - (m * 60) - (h * 3600)

Label1.Caption = h & " : " & m & " : " & sc

End Sub

thx

_{[Ovu poruku je menjao mladenovicz dana 25.08.2004. u 10:54 GMT]}

[ vujkev @ 25.08.2004. 07:13 ] @

Možda ovako?

Code:
Private Sub Timer1_Timer()

s = CInt(GetTickCount / 1000)

h = cInt(s/3600)
m = cInt((s - h*3600) / 60)
s = cInt(s - h*3600 - m*60)

Label1.Caption = h & " : " & m & " : " & s

End Sub

[ mladenovicz @ 25.08.2004. 10:03 ] @

Code:

Private Sub Timer1_Timer()
   Dim dTicks     As Double

   dTicks = GetTickCount / 1000 / 60 / 60 / 24

   Label1.Caption = Format(dTicks, "HH:MM:SS")
End Sub

[ vujkev @ 25.08.2004. 10:33 ] @

covek jednostavno ne prestaje da me odusevljava

[ `and @ 25.08.2004. 12:30 ] @

tnx