Calcul d'écart de date (année, mois, jour,etc) [Résolu]

[le.dams]

Bonjour à tous,

Avez vous remarqué que toutes les fonctions comme DateDiff(...), Année(...), mois(...), renvoie des calculs (nombre d'année par example entre 2 dates) arrondies !
... et non tronqué

C'est problématique pour les personnes qui comme moi veulent calculer des ages ou autre différence de date pour aplliquer un bareme derrière : il faut que le calcul de la date renvoie un age révolu et non arrondie.

N'ayant rien trouvé de mieux je vous livre ma solution et peut être que vous en avez une meilleure (existe t'il un paramétrage de DateDiff qui tronque plutôt qu'arrondir ?)

Pour le calcul d'année révolues:
Ent(Date()-[Date de naissance])/365,25)

Pour le calclul de moisvrévolues et restant après le calcul des années :
Ent(((([Date()-[Date de naissance])/365,25)-Ent((Date()-[Date de naissance])/365,25))*12)

etc...

A vos commentaires !

[le.dams]

euhhhh... milles excuses !

Ma formule sur les mois donne une approximation à 2 ou 3 jours près ! (de par le fait que les mois ne sont pas tous égaux !)
Bon je cherche autre chose

[francishop]

Bonsoir,

Essaye :

Code :

=AgeX([Date de naissance];Date())

Dans un module :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function AgeX(dn As Date, dx As Date) As String
'Objectif: calcul de l'âge en années et mois pleins
'Arguments: dn = date de naissance, dx = date quelconque
     Dim y1 As Integer, y0 As Integer, m1 As Integer, m0 As Integer
     Dim d1 As Integer, d0 As Integer
     d1 = Day(dx)
     m1 = Month(dx)
     y1 = Year(dx)
     d0 = Day(dn)
     m0 = Month(dn)
     y0 = Year(dn)
     If d0 > d1 Then m0 = m0 + 1
     If m0 > m1 Then
         y0 = y0 + 1
         m1 = m1 + 12
     End If
     AgeX = (y1 - y0) & " ans, " & (m1 - m0) & " mois"
End Function

Cordialement.

[le.dams]

Excellent, cela dit je voudrais s'il te plait l'adapter un peu à mon cas (je ne maitrise pas le vba et serait donc obligé de refaire des calculs sur le champs issue de ton code un peu... "sales" )

Mes barèmes ages sont gérés dans un champs qui affiche le même type d'info que toi mais ne stocke en fait que 'aamm' sous format numérique.
Je serai très bien enlever les termes "ans" et "mois" dans ton code, mais comment faire pour qu'il ai toujours 2 chiffres au niveau des mois (je fais des comparaisons >,<,... entre l'age et le bareme donc pas grave pour les années mais pour les mois il me faut absolument le "0" devant le mois à un seul chiffre)

A l'origine j'avais contourné le pb dans mes fonctions et faisant un test du genre :
si nbcar mois = 1 alors rajoute "0" entre les ans et les mois

Merci pour ton aide

[helas]

il suffit de modifier le code de Francishop

Code :

1
2
 
AgeX = (y1 - y0) & " ans, " & (m1 - m0) & " mois"

devient

Code :

1
2
 
AgeX = Right$("000" & (y1 - y0), 3) & Right$("00" & (m1 - m0), 2)

J'ai mis 3 pour l'année car il existe des centenaires

[le.dams]

Merci beauoup.
Cela fonctionne Nickel, cela dit, c'est pour gérer des vaches, alors des vaches centenaires, elles ne vont pas très tendres !
Du coup je suis resté sur ça car les 0 devant les années ne m'intéresse pas.
Code :
AgeX = (y1 - y0) & Right$("00" & (m1 - m0), 2)

et encore

[dede tabby]

Comment faire pour afficher ce calcul de l'âge en année et mois et jours style
53 ans et 2 mois et 10 jours ?

Merci d'avance pour votre aide

[User]

Salut,

Je me permet de répondre à la place de Francishop , qui maîtrise mieux son code que moi

Tu peux a nouveau partir de la fonction de Francishop,

et juste avant l'affectation mettre le code :

Code :

1
2
3
4
5
6
...
 
dn = DateAdd("yyyy", (y1 - y0), dn)
dn = DateAdd("m", (m1 - m0), dn)
 
AgeX = (y1 - y0) & " ans, " & (m1 - m0) & " mois, " & DateDiff("d", dn, dx) & " jours"

A+