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 !
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.