Calcul d'écart de date (année, mois, jour,etc)

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 !

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

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.

:P
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" :lol:)

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

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

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 !:mouarf:
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)

:salut: et encore :merci:

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

Salut,

Je me permet de répondre à la place de Francishop :coucou:, 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+