Depuis combien de temps windows est ouvert ?

SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003 - 13 juin 2003 à 21:38
SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003 - 14 juin 2003 à 10:24
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

2 réponses

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
14 juin 2003 à 09:19
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
0
SatanCorporation Messages postés 123 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 13 septembre 2003
14 juin 2003 à 10:24
Merci
0
Rejoignez-nous