Calcul de l'âge avec la date de naissance dans Access : Exemples et Méthodes

par | Jan 12, 2026 | Blog

Dans Access, le calcul de l'âge à partir d'une date de naissance est une tâche courante, mais qui peut nécessiter l'utilisation de fonctions spécifiques et d'astuces de programmation. Cet article explore différentes méthodes pour réaliser ce calcul, en mettant l'accent sur l'utilisation de la fonction DiffDate et en fournissant des exemples concrets.

Fonction DiffDate : Calcul de l'écart entre deux dates

Access offre une fonction nommée DiffDate, similaire à la fonction Datedif d'Excel, qui permet de calculer l'écart entre deux dates. Cette fonction prend trois arguments :

  1. L'intervalle ou unité de temps (par exemple, "aaaa" pour les années).
  2. La date de début.
  3. La date de fin.

Par exemple, pour calculer l'écart en années entre une date de naissance et la date actuelle, on peut utiliser la formule suivante :

DiffDate("aaaa"; [DateNaissance]; Maintenant())

Ici, [DateNaissance] est le champ contenant la date de naissance et Maintenant() renvoie la date et l'heure actuelles.

Exemple pratique : Alerte d'anniversaire

Un exemple concret d'utilisation du calcul de l'âge est la mise en place d'une alerte lorsque la date d'anniversaire d'une personne approche. Dans un formulaire Access, un bandeau rouge peut apparaître dans la partie inférieure, indiquant le nombre de jours restants jusqu'à l'échéance.

Lire aussi: En savoir plus sur Accès Édition Maternelle

Pour cela, il est nécessaire de créer une requête avec trois champs calculés :

  1. Annees : Calcule l'écart en années entre la date d'anniversaire et la date du jour.
  2. Jours : Calcule l'écart en jours entre la date d'anniversaire et la date du jour.
  3. JoursRestants : Calcule le nombre de jours restants pour atteindre la date anniversaire.

La formule pour JoursRestants peut être la suivante :

([Annees] * 365,25) - [Jours]

Cette formule tient compte des années bissextiles en multipliant l'âge en années par 365,25.

Gestion des alertes

Pour afficher une alerte lorsque la date d'anniversaire approche (par exemple, moins de sept jours), il est possible d'utiliser la fonction VraiFaux d'Access, qui est l'équivalent de la fonction Si d'Excel.

Dans une zone de texte du formulaire, on peut afficher un message indiquant le nombre de jours restants si et seulement s'il reste moins de sept jours. La formule pourrait ressembler à ceci :

Lire aussi: Accès à la langue maternelle : exploration

VraiFaux([JoursRestants] >= 0 Et [JoursRestants] <= 7; "Attention : Anniversaire dans " & Ent([JoursRestants]) & " jours !"; "")

Cette formule affiche un message si le nombre de jours restants est compris entre 0 et 7.

Amélioration de la précision du calcul

Il est important de noter que la fonction Maintenant() restitue le jour en cours à la minute près, ce qui peut entraîner un décalage dans le calcul du nombre de jours restants. De plus, les années bissextiles peuvent également introduire de petites différences.

Pour corriger ces imprécisions, des fonctions Access permettent de réajuster le tir.

Alternatives et formules complémentaires

Outre la fonction DiffDate, d'autres formules peuvent être utilisées pour calculer l'âge dans Access. Voici quelques exemples :

  • Formule simple (mais moins précise) :
Round((Date()-[DateNaissance])/365.25;0)

Cette formule divise simplement la différence entre la date actuelle et la date de naissance par 365,25 et arrondit le résultat. Elle est statistiquement juste, surtout pour les âges élevés, mais moins précise pour les jeunes âges.

Lire aussi: Poussette 3 en 1 : un choix polyvalent ?

  • Formule plus complexe (tenant compte du mois et du jour) :
DiffDate("aaaa";[DateNaissance];Maintenant())+(Format(Maintenant();"mmjj")<Format([DateNaissance];"mmjj"))

Cette formule calcule l'écart en années et ajoute 1 si le mois et le jour actuels sont antérieurs au mois et au jour de la date de naissance.

Code VBA pour le calcul de l'âge

Une autre approche consiste à utiliser du code VBA pour calculer l'âge. Voici un exemple de fonction VBA :

Function calculAge(dateAnniv As Date, dateM As Date) As String Dim nbJours As Integer Dim nbMois As Integer nbMois = DateDiff("m", dateAnniv, dateM) + (Day(dateM) < Day(dateAnniv)) If Day(dateM) < Day(dateAnniv) Then nbJours = DateDiff("d", dateAnniv, DateSerial(Year(dateAnniv), Month(dateAnniv) + 1, 0) + Day(dateM)) Else nbJours = 0 End If calculAge = LTrim(Str(nbMois \ 12)) & " ans " & LTrim(Str(nbMois Mod 12)) & " mois " & LTrim(Str(nbJours)) & " jours"End Function

Cette fonction calcule l'âge en années, mois et jours, et renvoie une chaîne de texte formatée.

tags: #access #calculer #age #avec #date #de

Articles populaires: