Bonjour à tous

j'aimerais avoir votre avis sur la fonction que je viens de créer. Je recherchais sur le net une façon de calculer l'âge d'une personne et je ne vois pas beaucoup d'exemples.
Le problème rencontré se situe au niveau des années bissextiles, je me suis penché sur la question.
Merci de me donner votre avis

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function QuelAge(ByVal d1 As Date, d2 As Date) As Integer
        Dim int1 As Integer = 0
        Dim NbrJoursBi As Integer = 0
        Dim NbrJourTot As Integer = CInt(DateDiff(DateInterval.Day, d1, d2))
 
        Dim Datedep As Date = d1
        For y As Integer = 0 To CInt(DateDiff(DateInterval.Year, d1, d2)) - 1
            If Date.DaysInMonth(Datedep.Year, 2) = 29 Then
                NbrJoursBi += 1
            End If
            Datedep = Datedep.AddYears(1)
        Next
 
 
        Return CInt(Math.Floor((NbrJourTot - NbrJoursBi) / 365))
 
    End Function
bonne journée