VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 2010
-
21 avril 2003 à 08:04
avatarvb
Messages postés1Date d'inscriptionjeudi 26 février 2009StatutMembreDernière intervention28 juin 2011
-
28 juin 2011 à 17:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
avatarvb
Messages postés1Date d'inscriptionjeudi 26 février 2009StatutMembreDernière intervention28 juin 2011 28 juin 2011 à 17:22
merci
cs_johnwolf
Messages postés3Date d'inscriptionjeudi 23 janvier 2003StatutMembreDernière intervention23 avril 2003 23 avril 2003 à 00:24
Je ne sais pas si le code est bon mais je suis épater....il faut dire que je commence à peine savoir comment faire des InputBox(dsl...)
apxa
Messages postés188Date d'inscriptionmercredi 15 mai 2002StatutMembreDernière intervention25 avril 2009 22 avril 2003 à 15:13
Un truc qui serait bien c de faire la même chose mais avec les toutes applis...
Je pense que si tu cherche dans les fichiers dépendants des handles en cours et de leur première date d'accès, tu pourra surment faire qq chose de très utile.
Attention, ces commentaires sont théoriques, y a peut-être d'autres méthodes.
Mais l'idée reste intéressante.
Have Fun ;)
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 21 avril 2003 à 08:10
désolé.... je revois ma copie et je reviens -;)
VicoLaChips2
Messages postés436Date d'inscriptiondimanche 20 janvier 2002StatutMembreDernière intervention 2 février 20102 21 avril 2003 à 08:04
Excusez moi mais j'étais pas bien réveillé !!
voilà le bon code :
Private Sub TimRefresh_Timer()
Static Sec As Long, Hour As Long, Min As Long
Sec = Abs(DateDiff("s", Now, mStartTime) Mod 60)
Min = (Abs(DateDiff("s", Now, mStartTime)) / 120) Mod 60
Hour = DateDiff("h", Now, mStartTime) Mod 24
lblHeure.Caption = Format(Hour, "00:") & Format(Min, "00:") & Format(Sec, "00")
End Sub
28 juin 2011 à 17:22
23 avril 2003 à 00:24
22 avril 2003 à 15:13
Je pense que si tu cherche dans les fichiers dépendants des handles en cours et de leur première date d'accès, tu pourra surment faire qq chose de très utile.
Attention, ces commentaires sont théoriques, y a peut-être d'autres méthodes.
Mais l'idée reste intéressante.
Have Fun ;)
21 avril 2003 à 08:10
21 avril 2003 à 08:04
voilà le bon code :
Private Sub TimRefresh_Timer()
Static Sec As Long, Hour As Long, Min As Long
Sec = Abs(DateDiff("s", Now, mStartTime) Mod 60)
Min = (Abs(DateDiff("s", Now, mStartTime)) / 120) Mod 60
Hour = DateDiff("h", Now, mStartTime) Mod 24
lblHeure.Caption = Format(Hour, "00:") & Format(Min, "00:") & Format(Sec, "00")
End Sub