Discussion :

[castours]

Bonjour
Je voudrai obtenir l'age avec un resultat ans, mois , jours entre la fonction Date et le champ Date/Nais dans une requete
Pouvez vous m'indiquer la syntaxe exact.
Le calcul le plus juste avec une requete ou en VBA sur evenement du champ age.
Mes connaissances en vba sont très faible .
Merci de votre aide

[jimbolion]

Castours,

Tu peux créer une fonction de calcul dans un module et y faire appel dans ta requête :

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
23
24
25
26
27
28
29
Public Function CalcAge(vDate1 As Date, vdate2 As Date, vRet As Integer)
    ' Comments : Calculer l'age d'une personne
    ' Paramètres:
    '             vDate1 - Date de Fête
    '             vDate2 - Date de comparaison
    '             vRet - 1 Année
    '                     2 Année , Mois
    '                     3 Année, Mois, Jour
    Dim vMonths As Integer
    Dim vDays As Integer
    Dim vYears As Integer
 
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    Select Case vRet
    Case 1
         CalcAge = vYears & " ans."
    Case 2
         CalcAge = vYears & " ans, " & vMonths & " mois."
    Case 3
         CalcAge = vYears & " ans, " & vMonths & " mois, " & vDays & " Jours."
    End Select
End Function

En insérant ta fonction dans le calcul de la requête ainsi :




et le rendu en mode feuille de données :



Tu trouveras en pièce jointe un exemple au format compatible sur les versions 2007,2010 et 2013
Cette fonction est utilisable à la fois dans des requêtes, du code VBA et dans tes formulaires (champs calculés). A toi de l'utiliser à bon escient

JimboLion

[Papouni]

Je viens remercier de tout mon coeur Castours qui m'a vraiment aidé à resoudre mon probleme avec le calcul de l'age .
Merci vraiment c'est vraiment genial

[jimbolion]

[castours]

Castours,

Tu peux créer une fonction de calcul dans un module et y faire appel dans ta requête :

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
23
24
25
26
27
28
29
Public Function CalcAge(vDate1 As Date, vdate2 As Date, vRet As Integer)
    ' Comments : Calculer l'age d'une personne
    ' Paramètres:
    '             vDate1 - Date de Fête
    '             vDate2 - Date de comparaison
    '             vRet - 1 Année
    '                     2 Année , Mois
    '                     3 Année, Mois, Jour
    Dim vMonths As Integer
    Dim vDays As Integer
    Dim vYears As Integer
 
    vMonths = DateDiff("m", vDate1, vdate2)
    vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    If vDays < 0 Then
        vMonths = vMonths - 1
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
    End If
    vYears = vMonths \ 12
    vMonths = vMonths Mod 12
    Select Case vRet
    Case 1
         CalcAge = vYears & " ans."
    Case 2
         CalcAge = vYears & " ans, " & vMonths & " mois."
    Case 3
         CalcAge = vYears & " ans, " & vMonths & " mois, " & vDays & " Jours."
    End Select
End Function

En insérant ta fonction dans le calcul de la requête ainsi :




et le rendu en mode feuille de données :



Tu trouveras en pièce jointe un exemple au format compatible sur les versions 2007,2010 et 2013
Cette fonction est utilisable à la fois dans des requêtes, du code VBA et dans tes formulaires (champs calculés). A toi de l'utiliser à bon escient

JimboLion

[jimbolion]

castours,

oui et

Des explications supplémentaires peut-être ? J'avoue ne pas avoir compris ta réponse si tant est qu'il s'agisse d'une réponse

jimbolion