Temps pendant lequel l'ordinateur est allumé.

Télécharger le projet
Commenter

Description

Depuis quand n'avez vous pas rebootez ?

Source / Exemple : 


Option Explicit
'--------------

Private mStartTime As Date
Private mOldSec As Long
Const dblAr As Double = 0.49999

Private Sub Form_Load()
    mOldSec = -1
    mStartTime = Now()
End Sub

Private Sub TimRefresh_Timer()
    Static lngSec As Long
    Dim Sec As String, Min As String, Hour As String, Jour As String
    
    lngSec = Abs(DateDiff("s", Now, mStartTime))
    
    If mOldSec < lngSec Then
    
        Sec = Format(lngSec Mod 60, "00")
        Min = Format(((lngSec / 60) - dblAr) Mod 60, "00")
        Hour = Format(((lngSec / 3600) - dblAr) Mod 24, "00")
        Jour = Format(((lngSec / 86400) - dblAr), "00")
        lblHeure = Jour & " jour(s), " & Hour & " Heure(s), " & _
        Min & " Minute(s) et " & Sec & " Seconde(s)"
        
        mOldSec = lngSec
        
    End If
End Sub

Conclusion :


Inspiré par Max12, (salut à toi)
Attention il faut copier le code du dessus
dans le source (zip), c'est pas le même
@+, VIC
Télécharger le projet

Codes Sources

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 (VicoLaChips2)