jai le code suivant et je voudrais savoir si il marche vraiment :
A priori je pense mais dites moi si il a des bugs !!!

h = Int(GetTickCount / 1000 / 60 / 60)
m = Int(GetTickCount / 1000 / 60 - h * 60)
s = Int(GetTickCount / 1000 - m * 60) - h * 3600
j = Int(Int(GetTickCount / 1000 / 60 / 60) / 24)



Label1 = "Windows est ouvert depuis " & j & " jours " & h - (j * 24) & " heures, " & m & " minutes et " & s & " secondes."

merci d'avance

salut

ce code est bon :
tu devrais quand meme n'appeller gettickcount qu'une fois
et simplifier les calculs (moins d'etape = plus rapide)

Dim ret As Long

ret = GetTickCount
h = Int(ret / 3600000)
m = Int((ret / 60000) - (h * 60))
s = Int((ret / 1000) - (m * 60)) - (h * 3600)
j = Int(Int(ret / 3600000) / 24)

et déclarer h,j,m,s comme byte

voila

ShareVB


-------------------------------
Réponse au message :
-------------------------------

>
> jai le code suivant et je voudrais savoir si il marche vraiment :
> A priori je pense mais dites moi si il a des bugs !!!
>
> h = Int(GetTickCount / 1000 / 60 / 60)
> m = Int(GetTickCount / 1000 / 60 - h * 60)
> s = Int(GetTickCount / 1000 - m * 60) - h * 3600
> j = Int(Int(GetTickCount / 1000 / 60 / 60) / 24)
>
>
>
> Label1 = "Windows est ouvert depuis " & j & " jours " & h - (j * 24) & " heures, " & m & " minutes et " & s & " secondes."
>
> merci d'avance

Merci


-------------------------------
Réponse au message :
-------------------------------

> salut
>
> ce code est bon :
> tu devrais quand meme n'appeller gettickcount qu'une fois
> et simplifier les calculs (moins d'etape = plus rapide)
>
> Dim ret As Long
>
> ret = GetTickCount
> h = Int(ret / 3600000)
> m = Int((ret / 60000) - (h * 60))
> s = Int((ret / 1000) - (m * 60)) - (h * 3600)
> j = Int(Int(ret / 3600000) / 24)
>
> et déclarer h,j,m,s comme byte
>
> voila
>
> ShareVB
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > jai le code suivant et je voudrais savoir si il marche vraiment :
> > A priori je pense mais dites moi si il a des bugs !!!
> >
> > h = Int(GetTickCount / 1000 / 60 / 60)
> > m = Int(GetTickCount / 1000 / 60 - h * 60)
> > s = Int(GetTickCount / 1000 - m * 60) - h * 3600
> > j = Int(Int(GetTickCount / 1000 / 60 / 60) / 24)
> >
> >
> >
> > Label1 = "Windows est ouvert depuis " & j & " jours " & h - (j * 24) & " heures, " & m & " minutes et " & s & " secondes."
> >
> > merci d'avance
>