DEPUIS COMBIEN DE TEMPS L'APPLI EST OUVERTE ?

VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 - 21 avril 2003 à 08:04
avatarvb Messages postés 1 Date d'inscription jeudi 26 février 2009 Statut Membre Dernière intervention 28 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.

https://codes-sources.commentcamarche.net/source/1613-depuis-combien-de-temps-l-appli-est-ouverte

avatarvb Messages postés 1 Date d'inscription jeudi 26 février 2009 Statut Membre Dernière intervention 28 juin 2011
28 juin 2011 à 17:22
merci
cs_johnwolf Messages postés 3 Date d'inscription jeudi 23 janvier 2003 Statut Membre Dernière intervention 23 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és 188 Date d'inscription mercredi 15 mai 2002 Statut Membre Dernière intervention 25 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és 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
21 avril 2003 à 08:10
désolé.... je revois ma copie et je reviens -;)
VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
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
Rejoignez-nous