Infos systeme
iodo
Messages postés
1
Date d'inscription
mardi 22 février 2005
Statut
Membre
Dernière intervention
22 février 2005
-
22 févr. 2005 à 15:43
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 22 févr. 2005 à 19:16
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 22 févr. 2005 à 19:16
1 réponse
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
22 févr. 2005 à 19:16
22 févr. 2005 à 19:16
Salut, tu peux utiliser l'API GetTickCount. Elle te renvoie le nombre de millisecondes écoulées depuis le dernier redémarrage de Windows. Reste plus qu'à faire une différence avec la date et l'heure en cours.
Exemple dans un form avec un CommandButton (command1) :
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Command1_Click()
Dim ret As Double
'Lire le tickcount
ret = GetTickCount&
'ret/86400000 = conversion du tickcount en jours
MsgBox CDate(Now - ret / 86400000)
End Sub
Loup Gris
Exemple dans un form avec un CommandButton (command1) :
Private Declare Function GetTickCount& Lib "kernel32" ()
Private Sub Command1_Click()
Dim ret As Double
'Lire le tickcount
ret = GetTickCount&
'ret/86400000 = conversion du tickcount en jours
MsgBox CDate(Now - ret / 86400000)
End Sub
Loup Gris
