Travail sur date en minutes et registre

Commenter

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

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