Depuis combien de temps l'appli est ouverte ?

Commenter

Contenu du snippet

Je sais que ce code est très simple, mais bien souvent les gens utilise un timer réglé a 1000 MS. Mais cette astuce est mauvaise puisque le timer en VB est pas très précis (Tester sur Win9x et ensuite sur 2k/XP c'est déchirant)

Source / Exemple : 


Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim depart As Long

Public Function Sec2time(Total As Long) As String
Dim a As String
Total = Total / 1000
If ((Total) / 3600) > 1 Then
    a = Int(Total / 3600)
    Sec2time = a & " Heures " & Int((Total / 60) - (a * 60)) & " Mins " & Int((Total) - (a * 3600) - (Int(((Total) / 60) - (a * 60)) * 60)) & " Secs"
Else
    If (Total / 60) > 1 Then
        a = Int(Total / 60)
        Sec2time = a & " Mins " & Int(Total - (a * 60)) & " Secs"
    Else
        Sec2time = Int(Total) & " Secs"
    End If
End If
End Function

Private Sub Form_Load()
    depart = GetTickCount
End Sub

Private Sub TimRefresh_Timer()
    Label1.Caption = "Appli ouverte depuis " & Sec2time(GetTickCount - depart)
    Label2.Caption = "La machine est ouverte depuis " & Sec2time(GetTickCount)
End Sub

Conclusion :


www.psycomaxter.fr.st <= Nouvelle version

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_max12)