Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

GetTickCount ili provedeno vreme na sys ...

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 4 odgovora
  • 3.233 pregleda

Najnovija ↓

GetTickCount ili provedeno vreme na sys ... 25.08.2004. u 01:39 · pre 270 meseci #1
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]
Re: GetTickCount ili provedeno vreme na sys ... 25.08.2004. u 08:13 · pre 270 meseci #2
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

Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Re: GetTickCount ili provedeno vreme na sys ... 25.08.2004. u 11:03 · pre 270 meseci #3
Code:

Private Sub Timer1_Timer()
   Dim dTicks     As Double

   dTicks = GetTickCount / 1000 / 60 / 60 / 24

   Label1.Caption = Format(dTicks, "HH:MM:SS")
End Sub
Potpis
Blue Man Group
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme