Microsoft 365 calcul d age entre deux dates

[pouetpouetlagalette]

Bonjour,
j'ai mis cette formule pour le calul entre deux dates
=(ANNEE(MAINTENANT())-ANNEE(H9))
l 'une est la date du jour - la date au format JJ/MM/AAAA.
Celle mi me donne l'écart en année (chiffre entier).
SAUF QUE,
çelà ne me donne pas l'âge réel
exemple pour une date de naissance du 11/04/2011, j'obtient donc 14;
Sauf que en réel c'est 13 années, ce sera 14 années le 11/04/2025
Et là c'est le couac, je ne trouve pas sur gogole la solution,
Un avis, une idée;
Force et robustesse,
Merci

 

[JHA]

Bonjour à tous,

A essayer datedif(jour début;aujourdhui;"y")) et datedif(jour début;aujourdhui;"ym"))

JHA

 

[riton00]

Bonsoir, pouetpouetlagalette, JHA

Autre

Slts

 

[Dudu2]

Bonjour,
J'ai ça dans mes placards...

Dim Age as integer
Dim DateDeNaissance as date

Age = DateDiff("yyyy", DateDeNaissance, Date)
If DateAdd("yyyy", Age, DateDeNaissance) > Date Then Age = Age - 1

 

[patricktoulon]

Bonsoir
Normalement datedif en formule ou en vba respect les 365 jours révolu et donc devrait te donner 13

 

[job75]

Bonsoir à tous,

Pour l'âge en années révolues :

=ANNEE(AUJOURDHUI())-ANNEE(H9)-(MOIS.DECALER(H9;12*(ANNEE(AUJOURDHUI())-ANNEE(H9)))>AUJOURDHUI())

A+

 

[Victor21]

Bonjour à tous.

Pourquoi pas :

=ENT((AUJOURDHUI()-H9)/365,25)

 

[job75]

Bonjour Patrick, le forum,

Pourquoi pas :

=ENT((AUJOURDHUI()-H9)/365,25)

Si quelqu'un est né le 29/02/2000 on ne fêtera ses 105 ans que le 02/03/2105.

[Edit} S'il est né le 28/02/2000 on les lui fêtera le 01/03/2105.

Un peu tard non ?

A+

 

[job75]

Même pour 61 ans ça ne va pas :

=ENT(("1/1/2086"-"1/1/2025")/365,25)

 

[Victor21]

Bonjour, Gérard.

28/02/2000+105*365.25 me renvoie bien 28/02/2105
et
29/02/2000+105*365.25 me renvoie bien 01/03/2105 (car 2105 n'est pas bissextile)

 

[job75]

Là tu n'utilises pas la formule que tu as donnée...

 

[mapomme]

Bonjour à tous 😉,

Je ressors un très vieux machin que j'avais codé il y a bien longtemps quand j'étais beaucoup plus jeune 😟. Comme je ne l'ai bien sûr pas retrouvé, j'ai essayé de m'en souvenir. C'était rigolo (on s'amuse comme on peut 🥳) car basé sur une boucle pour déterminer le nombre total de mois complet entre les deux dates. A partir de ce nombre total de mois, les durées en années, mois et jours sont faciles à calculer. C'est juste pour publier quelque chose. Voir les formules en colonne de C à F et de K à N.

'=============================================================================================
' Fonction = AMJ(date1, Date2, periode)
' Date1 est une date au sens Excel et Date2 est aussi une date au sens Excel
' Periode indique le type de retour :
'     - si periode est le caractère a ou A ou y ou Y alors on retourne le nombre d'année complète entre
'           les deux dates
'     - si periode est le caractère m ou M alors on retourne le nombre de mois complets entre
'           les deux dates (sans les mois des années complètes)
'     - si periode est le caractère j ou J ou d ou D alors on retourne le nombre de jours entre les
'            deux dates (sans les jours des années et mois complets)
'     - dans les autres cas, on retourne en un seul bloc les nombre d'année, de mois et de jour
'     - si periode est omis alors on applique le dernier cas (retour d'un seul bloc a m j)
'=============================================================================================

Function AMJ(ByVal d1 As Date, ByVal d2 As Date, Optional ByVal xPeriode = "")
Dim di As Date, df As Date, d As Date, a&, m&, j&, i&, x$
   di = d1: df = d2                             ' recup des deux dates
   If di >= df Then di = d2: df = d1            ' di plus petite date, df plus grande date
   For i = 12 * (Year(df) - Year(di) + 1) To 0 Step -1   '  boucle sur un nombre de mois
      d = DateSerial(Year(di), Month(di) + i, Day(di))   ' d est la date di à laquelle on ajoute le nombre de mois i
      If d <= df Then m = i: Exit For     ' si d est inférieur à la date df alors le nombre de mois complet est i
   Next i
   a = m \ 12                             ' calcul du nombre d'année entière
   m = m - a * 12                         ' calcul du nombre de mois (sans les mois des années complètes)
   j = df - DateSerial(Year(di) + a, Month(di) + m, Day(di))   ' calcul du nombre de jours (sans les années et les mois)
   If d1 > d2 Then a = -a: m = -m: j = -j ' si d1 est postérieure à d2 alors a, m et j sont négatifs
   Select Case LCase(xPeriode)                     ' en fonction du retour souhaité
      Case "a", "y": AMJ = a                       ' retour des années complètes
      Case "m": AMJ = m                            ' retour des mois compléts
      Case "j", "d": AMJ = j                       ' retour des jours
      Case Else: AMJ = Join(Array(a, m, j), ",")   ' retour des années, mois et jours
   End Select
End Function

nota : comme c'est (bien) connu, au niveau des dates entre Excel et VBA, les calculs ne sont justes que pour des dates Excel à partir du 1er mars 1900.
edit : v1a : une borne de la boucle a été modifiée (ça ne joue que sur la vitesse - résultats identiques à la v1)

 

[job75]

Bonsoir mapomme,

Toujours pour l'âge en années cette formule fait ce que tu proposes en VBA :

=ENT((EQUIV(AUJOURDHUI();MOIS.DECALER(H9;LIGNE(INDIRECT("1:2401"))-1))-1)/12)

Limite d'âge 200 ans...

A+