Bonjour,
j'arrive pas =E0 calculer l'age des patients
si je fais =3Ddate()-datenaiss, il me met bien l'age mais=20
avant son anniversaire.
Ca ne me convient pas
Je voudrais que l'age se modifie le jour de=20
l'anniversaire de la personne.
Est possible?
Merci =E0 tous
Marie
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
essaie cette fonction : Private Sub Commande48_Click() MsgBox Age(#2/26/1950#) End Sub
Function Age(Date_Naissance As Date) As Integer If IsNull(Date_Naissance) Then Age = 0 Exit Function End If Age = DateDiff("yyyy", Date_Naissance, Now()) If Date < DateSerial(Year(Now), Month(Date_Naissance), Day(Date_Naissance)) Then Age = Age - 1 End If End Function
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marie" a écrit dans le message de news:14aa01c3fbb7$e2f12fb0$ Bonjour, j'arrive pas à calculer l'age des patients si je fais Úte()-datenaiss, il me met bien l'age mais avant son anniversaire. Ca ne me convient pas Je voudrais que l'age se modifie le jour de l'anniversaire de la personne. Est possible? Merci à tous Marie
Bonjour.
essaie cette fonction :
Private Sub Commande48_Click()
MsgBox Age(#2/26/1950#)
End Sub
Function Age(Date_Naissance As Date) As Integer
If IsNull(Date_Naissance) Then
Age = 0
Exit Function
End If
Age = DateDiff("yyyy", Date_Naissance, Now())
If Date < DateSerial(Year(Now), Month(Date_Naissance),
Day(Date_Naissance)) Then
Age = Age - 1
End If
End Function
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marie" <maryola_007@msn.com> a écrit dans le message de
news:14aa01c3fbb7$e2f12fb0$a401280a@phx.gbl...
Bonjour,
j'arrive pas à calculer l'age des patients
si je fais Úte()-datenaiss, il me met bien l'age mais
avant son anniversaire.
Ca ne me convient pas
Je voudrais que l'age se modifie le jour de
l'anniversaire de la personne.
Est possible?
Merci à tous
Marie
essaie cette fonction : Private Sub Commande48_Click() MsgBox Age(#2/26/1950#) End Sub
Function Age(Date_Naissance As Date) As Integer If IsNull(Date_Naissance) Then Age = 0 Exit Function End If Age = DateDiff("yyyy", Date_Naissance, Now()) If Date < DateSerial(Year(Now), Month(Date_Naissance), Day(Date_Naissance)) Then Age = Age - 1 End If End Function
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Marie" a écrit dans le message de news:14aa01c3fbb7$e2f12fb0$ Bonjour, j'arrive pas à calculer l'age des patients si je fais Úte()-datenaiss, il me met bien l'age mais avant son anniversaire. Ca ne me convient pas Je voudrais que l'age se modifie le jour de l'anniversaire de la personne. Est possible? Merci à tous Marie
