Discussion :

[chris09300]

bonsoir
c'est encore moi
je souhaite dams mon userform, dans une textbox avoir la valeur Age
j'ai une textbox avex une valeur date, je souhaiterais recuperer cette date et la soustraire a la date d'aujourd'hui ,
j'ai le code suivant ,mais ca ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Function fctAge(ByVal DN As Variant) As String
If IsDate(DN) Then
  fctAge = CStr(DateDiff("yyyy", Me.datenaissance.Value, Date))
Else
   fctAge = ""
End If
End Function
Private Sub Datenaissance_AfterUpdate()
Me.Age.Value = fctAge(Me.datenaissance.Value)
End Sub

merci de m'expliquez pourquoi
chris

[Theze]

Bonsoir,

J'ai testé avec une saisie au format 10/12/1985 et j'obtiens bien 26. A voir comment tu saisie ta date ?

Hervé.

[chris09300]

j'ai une listbox avec des donnees, et une textbox qui recupere les dates en fonction de ce que je choisis dans la listbox.
voila et je voudrais en fonction de cette date obtenir l'age
j'espere avoir ete assez clair, du moins je pense
chris

[pgz]

Bonsoir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Datenaissance_AfterUpdate()
Me.Age.Value = fctAge(Me.datenaissance.Value)
End Sub

Bizarre que Datenaissance s'écrive avec ou sans majuscule. Ce code est dans la module du formulaire?
Tu as en haut du module "Option Explicit"? Quand tu compiles, as-tu une erreur?

PGZ