Savoir depuis combien de temp windob est actif

Soyez le premier à donner votre avis sur cette source.

Vue 2 482 fois - Téléchargée 220 fois

Description

En fait j'ai juste fait une presentation un + correcte d'un autre code qui donnait le temp depuis lequels windob est demare.
(y a un petit bug par contre)

Source / Exemple :


Option Explicit
Dim p, et, p1, et1, et2, p2, mn, mns

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Text1.Text = GetTickCount
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
et1 = (Right(GetTickCount, 3))
p1 = InStr(GetTickCount, et1)
Text1.Text = (Left(GetTickCount, p1)) & "  Dixièmes"

et = (Right(GetTickCount, 4))
p = InStr(GetTickCount, et)
Text2.Text = (Left(GetTickCount, p)) & "  Secondes"

et2 = (Right(Text2.Text, 11))
p2 = InStr(Text2.Text, et1)
mn = (Left(Text2.Text, p1))
mns = mn / 60
mns = Round(mns, 0)
Text3.Text = mns & "  Minutes"
End Sub

Conclusion :


voila sinon tout est dans le zip !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
c'est du mien que tu parles???(http://www.vbfrance.com/article.asp?Val=1396)
et c'est le mien qui a bug ou le tien, et je te ferais remarquer que le mien décompose en h,m et s
trop pratique...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.