Discussion :

[nounous54]

Bonjour,
JE bloque.
je souhaite (à partir d'une date de naissance "NAISSANCE _adh") calculer dans ma ttxbox "txt_age" l'age exact de la personne.

J'utilise le code suivant:

Code :

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

1
2
 
Me.TXT_Age = DateDiff("yyyy", NAISSANCE_Adh, date) & " ans"

Alors le code fonctionne mais il va me donner l'age en fonction de l'année...
si je suis né le 02/01/1976 j'aurais 40 ans OK
si je suis né le 02/07/1976 j'aurais 40 ans PAS OK je veux qu'il affiche 39ans.

Car en réalité (nous somme le 11/06/2016) j'ai 39 ans aujourd'hui !!!

Quelqu'un a une idée?

Merci par avance.

[sqllm]

Bonjour

A vue de nez je dirai :

Age = annee courante - annee anniversaire

Si mois et jour de naissance superieur a mois et jour courant alors age = age - 1

[Malick]

Note : ceci est une adaptation du code source proposé par Michel Walsh

Solution 1

Code :

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

=DiffDate("aaaa";[DateNaiss];Maintenant())+Int(Format(Maintenant();"mm""dd""")<Format([DateNaiss];"mm""dd""")) & " " & "ans"

Solution 2
Il faut créer cette fonction avec Visual Basic :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
'Note : ceci est une adaptation du code source proposé par Michel Walsh
Function Age(DateNaiss) As Integer
    If Month(Date) < Month(DateNaiss) Or (Month(Date) = Month(DateNaiss) And Day(Date) < Day(DateNaiss)) Then
            Age = Year(Date) - Year(DateNaiss) - 1
    Else
            Age = Year(Date) - Year(DateNaiss)
    End If
End Function

Ensuite dans la propriété Source contrôle de ton txtbox, tu peux appeler la fonction en saisisant le code ci-après :

Code :

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

=(Age([DateNaiss])) & " " & "ans"

Voici la base de test :

[nounous54]

Hello,

Super milkoseck...
Ta solution 1 et ta solution 2 fonctionne très bien ...

Merci beaucoup.

[kiki29]

Salut, avec un peu de retard, j'ai ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Function DiffDateAMJ(DateDebut As Date, DateFin As Date) As String
Dim NbAns As Long, NbMois As Long, NbJours As Long
Dim Tmp As Date, sA As String, sM As String, sJ As String
 
    Tmp = DateSerial(Year(DateFin), Month(DateDebut), Day(DateDebut))
    NbAns = Year(DateFin) - Year(DateDebut) + (Tmp > DateFin)
    NbMois = Month(DateFin) - Month(DateDebut) - (12 * (Tmp > DateFin))
    NbJours = Day(DateFin) - Day(DateDebut) + 1    ' [ Date Début, Date Fin ]
 
    If NbJours < 0 Then
        NbMois = NbMois - 1
        NbJours = Day(DateSerial(Year(DateFin), Month(DateFin), 0)) + NbJours
    End If
 
    If NbAns = 0 Then sA = "" Else sA = NbAns & "a "
    If NbMois = 0 Then sM = "" Else sM = NbMois & "m "
    If NbJours = 0 Then sJ = "" Else sJ = NbJours & "j"
 
    DiffDateAMJ = Trim$(sA & sM & sJ)
End Function