Code à vérifier

Version imprimable

Code à vérifier

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:

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

25/02/2017, 20h01
clementmarcotte

Bonjour,

Là, ma batterie est presque vide, mais tu pourrais jeter un œil sur TimeSpan.

C'est fait spécialement pour les calculs sur des dates et des heures.

Au bas de la page, il y a justement un exemple sur une différence entre deux dates.
25/02/2017, 20h46
Mario Rousson

Salut Clement

merci de ta réponse.

J'ai essayé plusieurs tentatives au niveau du timespan, y a peut-être quelque chose que je n'ai pas bien fais, mais lorsque je cherche un changement d'âge à la date d'anniversaire les années bissextiles viennes influencer le calcule. Si tu as un exemple à me montrer je t'en serais gré.

bonjour

DateTime.IsLeapYear(nyear as Integer) est ton ami !!!
nyear est un nombre entier représentant une année valide (0001 à 9999) du calendrier grégorien...

exemple MSDN Help Lib :

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
25
26
27
 
 
Module IsLeapYear
   Public Sub Main()
      For year As Integer = 1994 to 2014
         If DateTime.IsLeapYear(year) Then
            Console.WriteLine("{0} is a leap year.", year)
            Dim leapDay As New Date(year, 2, 29)
            Dim nextYear As Date = leapDay.AddYears(1)
            Console.WriteLine("   One year from {0} is {1}.", _
                              leapDay.ToString("d"), _
                              nextYear.ToString("d"))
         End If
      Next
   End Sub
End Module
' The example displays the following output:
'       1996 is a leap year.
'          One year from 2/29/1996 is 2/28/1997.
'       2000 is a leap year.
'          One year from 2/29/2000 is 2/28/2001.
'       2004 is a leap year.
'          One year from 2/29/2004 is 2/28/2005.
'       2008 is a leap year.
'          One year from 2/29/2008 is 2/28/2009.
'       2012 is a leap year.
'          One year from 2/29/2012 is 2/28/2013.

à toi de l'adapter à ton calcul d'Age ... (probablement digne d'un agent administratif tatillon qui cherche à savoir si ton Age au jour près ouvre droit à un avantage quelconque ....!!!)
bon code...

26/02/2017, 00h10
Mario Rousson

Hehehe!

merci MABROUKI