Discussion :

[spacergirly]

Bonjour à tous,

j'ai un formulaire de saisie de dossiers. un champ date de naissance. un champ age.
Sur la saisie de la date de naissance, l'age apparait dans le champ age grâce à ça :

Function CalculAge(ByVal Dat1 As Date, ByVal Dat2 As Date) As Integer
If Month(Dat2) > Month(Dat1) Then
CalculAge = DateDiff("yyyy", Dat1, Dat2)
ElseIf Month(Dat2) = Month(Dat1) Then
If Day(Dat2) >= Day(Dat1) Then
CalculAge = DateDiff("yyyy", Dat1, Dat2)
Else
CalculAge = DateDiff("yyyy", Dat1, Dat2) - 1
End If
Else
CalculAge = DateDiff("yyyy", Dat1, Dat2) - 1
End If
End Function

Problème : dans 10 ans il aura toujours le même age.

[francishop]

Bonjour,

Essaies avec :

Code :

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

1
2
3
4
Function CalculAge(varDateNaiss As Date) As Integer
If IsNull(varDateNaiss) Then CalculAge = 0: Exit Function
CalculAge = DateDiff("YYYY", varDateNaiss, Date) + (DateSerial(Year(Date), Month(varDateNaiss), Day(varDateNaiss)) > Date)
End Function

Cordialement.

[argyronet]

Bonjour,

Le fonction de base est:

Code :

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

Format((Now-DateNaissance)\365.25, "0 ans")

conditionné par un If si

Code :

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

(Now-DateNaissance)\365.25 = 1

pour mettre "ans" au singulier...

Argy