Âge à une date fixé

Version imprimable

28/03/2023, 08h44
djamdulux

1 pièce(s) jointe(s)

Âge à une date fixé

Bonjour,

J'essaie en vain de calculer un âge en ayant la date de naissance et une date de référence (celle à laquelle j'essaie de connaitre l'âge)

Pièce jointe 636432

Ici je fais la différence entre la date de réf et la date de naissance que je divise par 365.25 : probléme avec celui né le 06.01.21, qui devrait donc avoir 2 ans au 06.01.23.
J'ai aussi essayé datediff mais les erreurs étaient encore plus flagrantes.

Y-a-t'il une méthode exacte ?
Ou n'y a-t-il que des approximations ?

Merci.
R.
28/03/2023, 09h45
TOFatJOB

bonjour,

=FRACTION.ANNEE(date1;date2)

(format cellule = nombre)
28/03/2023, 13h39
78chris

Bonjour

Code:

=DATEDIF(date naissance, cellule_entête *1, "y")
28/03/2023, 17h16
Valtrase

Salut,
Un peu de lecture :
Ancienneté, âge: La facilité de DATEDIF (fonction non documentée... et donc peu connue!)
29/03/2023, 13h00
djamdulux

2 pièce(s) jointe(s)

Citation:

Envoyé par 78chris

Bonjour

Code:

=DATEDIF(date naissance, cellule_entête *1, "y")

Le DateDif d'Excel et celui en VBA DateDiff donnent des résultats différents.... :?

Effectivement la version Excel fonctionne. En VBA il compare juste les années.

Pièce jointe 636494
29/03/2023, 14h11
TOFatJOB

1 pièce(s) jointe(s)
Bonjour,

pourquoi ne pas utiliser la fonction FRACTION.ANNEE qui marche ... à priori, Excel ET VBA
Code:

1 2 Range("C1").Select ActiveCell.FormulaR1C1 = "=YEARFRAC(RC[-2],RC[-1])"
Pièce jointe 636503

Hello, ce code fonctionne en vba:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
SSub calculerAnnees()
    ' Déclaration des variables
    Dim dateRefB As Date
    Dim dateRefC As Date
    Dim i As Long
    Dim lastRow As Long
 
    ' Récupération des dates de référence dans les cellules B1 et C1
    dateRefB = Range("B1").Value
    dateRefC = Range("C1").Value
 
    ' Récupération de la dernière ligne utilisée dans la colonne A
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
 
    ' Boucle pour parcourir toutes les lignes de la colonne A
    For i = 2 To lastRow
        ' Vérification si la cellule dans la colonne A n'est pas vide
        If Not IsEmpty(Range("A" & i)) Then
            ' Calcul du nombre d'années complètes entre les dates en tenant compte des mois et des jours
            Range("B" & i).Value = Int((dateRefB - Range("A" & i).Value) / 365.25)
            Range("C" & i).Value = Int((dateRefC - Range("A" & i).Value) / 365.25)
        End If
    Next i
End Sub

Pour revenir à ton message d'origine concernant la date du 6, tu n'as pas la différence de 2 ans tant que ta journée du 6 n'est pas entièrement "consommée".
C'est pour ça que dans ton tableau il est indiqué 1.99 alors que le 5 tu as 2.0014, car le 5 est entièrement consommé et il a entamé la journée du 6.