Travail sur date en minutes et registre

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 654 fois - Téléchargée 46 fois

Contenu du snippet

sert a changer une valeur dword dans le registre qui et la difference de temps en minutes ecoule par rapport a une date de reference puis execute le programme voule

Source / Exemple :


Private Sub Command1_Click()
Dim Maintenant As Date
Dim sngRslt As Single
Maintenant = Now
sngRslt = Minute(Maintenant) / 60
sngRslt = sngRslt + Hour(Maintenant)
temps = (-1440 * DateDiff("d", Date, "date de reference")) + sngRslt * 60
Dim tx As String
tx = temps
Set wshshell = CreateObject("WScript.Shell")
wshshell.RegWrite "chemin dans le registre", tx, "REG_DWORD"
Shell "chemin de l'application", vbNormalFocus
Close: End
End Sub

Conclusion :


j'ai mis ca la car ca peut servir a d'autre
c'est mon premier programme alors soyer indulgents merci

A voir également

Ajouter un commentaire

Commentaire

Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4
Ca peut etre utile ...
Mais a fonction explique aussi comment utiliser les script pour écrire dans le registre ... pour un premier programme c'est deja pas mal ! :)

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.