Ce code permet d'afficher la durée depuis laquelle l'application est ouverte.
Ce code est ridicule mais apporte une petite vie a vos appli ;)
ajouter juste un Timer et F5.
Source / Exemple :
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim depart As Long
Public Function Duree(Total As Long) As String
Dim a As String
Total = Total / 1000
If ((Total) / 3600) > 1 Then
a = Int(Total / 3600)
Duree = 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)
Duree = a & " Mins " & Int(Total - (a * 60)) & " Secs"
Else
Duree = Int(Total) & " Secs"
End If
End If
End Function
Private Sub Timer1_Timer()
Form1.Caption = "Appli ouverte depuis " & Duree(GetTickCount - depart)
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
depart = GetTickCount
End Sub
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.