OVH Cloud OVH Cloud

Label et date avec proc change

3 réponses
Avatar
Alain
Bonjour
j'ai dans un label29 une date, et je voudrai avoir le=20
nombre de jours de diff=E9rence dans le label28.
Mais pourquoi, cela ne fonctionne pas ?

Private Sub Cmb_jour_Change()
Me.Label29 =3D DateDiff("d", CDate(Me.Label28), Now) & "=20
jours"
End Sub

3 réponses

Avatar
papou
Bonjour
Aucun problème en ce qui concerne ta syntaxe, il doit donc y avoir un
problème situé ailleurs !
Parmi les pistes voir quelle valeur est affectée à ton contrôle nommé
"Cmb_Jour"

Cordialement
Pascal
"Alain" a écrit dans le message de
news:1a5f01c49a29$cf884f10$
Bonjour
j'ai dans un label29 une date, et je voudrai avoir le
nombre de jours de différence dans le label28.
Mais pourquoi, cela ne fonctionne pas ?

Private Sub Cmb_jour_Change()
Me.Label29 = DateDiff("d", CDate(Me.Label28), Now) & "
jours"
End Sub
Avatar
Pierre Fauconnier
Bonjour

Note qu'un label renvoie du texte et non une date... Il faut donc convertir
la valeur du label28 en une date valide

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Alain" a écrit dans le message de
news:1a5f01c49a29$cf884f10$
Bonjour
j'ai dans un label29 une date, et je voudrai avoir le
nombre de jours de différence dans le label28.
Mais pourquoi, cela ne fonctionne pas ?

Private Sub Cmb_jour_Change()
Me.Label29 = DateDiff("d", CDate(Me.Label28), Now) & "
jours"
End Sub
Avatar
Bonjour
la date est récupérée d'une cellule.
Merci

-----Message d'origine-----
Bonjour

Note qu'un label renvoie du texte et non une date... Il
faut donc convertir

la valeur du label28 en une date valide

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Alain" a écrit dans le message de
news:1a5f01c49a29$cf884f10$
Bonjour
j'ai dans un label29 une date, et je voudrai avoir le
nombre de jours de différence dans le label28.
Mais pourquoi, cela ne fonctionne pas ?

Private Sub Cmb_jour_Change()
Me.Label29 = DateDiff("d", CDate(Me.Label28), Now) & "
jours"
End Sub


.