Discussion :

[iMech]

bonsoir

je cherche à écrire un programme qui permet de calculer l’âge d’une personne à partir de sa Date de naissance
je dois contrôler le format de la saisie du champ «en cas d’erreur sur le type ou la loguer >10 afficher un message d’erreur
.
voilà mon essai sa fonctionne mais pas pour tous les contrôle exemple date > date actuelle

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Sub calcul_age()
        Dim Date_ca
        Dim age
        Dim datetimenow = DateTime.Now
        Date_ca = Format(Exercice5.da.Text, "dd/mm/yyyy")
 
        If Date_ca = "" Then
            MsgBox("Format de date saisie incorrect !")
            Exit Sub
        End If
 
        If Not IsDate(Exercice5.da.Text) Then
            MsgBox("Format de date saisie incorrect !")
            Exit Sub
        End If
 
        If Date_ca <> Format(Exercice5.da.Text, "dd/mm/yyyy") Then
            MsgBox("le format doit être jj/mm/aaaa !")
            Exit Sub
 
            If Date_ca > datetimenow Then
                MsgBox("La date doit être inférieure à la date d'aujourd'hui !")
                Exit Sub
            End If
        End If
 
 
        Dim datedenaissance = CDate(Exercice5.da.Text)
 
        age = CInt(Now.Year - datedenaissance.Year)
        If (datedenaissance.Month > Now.Month) Then
 
            age = age - 1
        End If
        If ((datedenaissance.Month = Now.Month) And (datedenaissance.Day > Now.Day)) Then
 
            age = age - 1
        End If
 
        Exercice5.age.Text = " Age : " & age & " ans"
 
    End Sub

[rv26t]

Bonjour,

Dans le cadre de la résolution de ton exercice, tu peux te pencher sur DateTime.CompareTo et DateTime.TryParseExact

[shayw]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim birthday As String = "12/4/78"
        Dim date1 As DateTime = Convert.ToDateTime(birthday)
        Dim age As Integer
        Dim ndiff As New TimeSpan
        ndiff = Date.Now.Subtract(date1)
        age = ndiff.Days \ 365

[rv26t]

@shayw
Il a un problème de comparaison de date

voilà mon essai sa fonctionne mais pas pour tous les contrôle exemple date > date actuelle

[shayw]

Ah

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
19
 Dim birthday As String = TextBox1.Text
        Dim thisdate As Date
        Dim age As Integer
        Dim ndiff As New TimeSpan
        If Date.TryParseExact(birthday, "d", New CultureInfo("fr-FR"), Globalization.DateTimeStyles.None, thisdate) Then
            Select Case Date.Compare(thisdate, Convert.ToDateTime(Date.Now.ToString("d")))
                Case 0, 1 : MessageBox.Show("date d'entrée doit être antérieur ")
                Case -1 : ndiff = Date.Now.Subtract(thisdate)
                    age = ndiff.Days \ 365
                    If age = 0 Then
                        MessageBox.Show(ndiff.Days.ToString & " jours")
                    Else
                        MessageBox.Show(age.ToString & " ans")
                    End If
 
            End Select
        Else
            MessageBox.Show("date invalide ou non dans le format dd/mm/yyyy")
        End If

[rv26t]

@shayw
C'est sympa de donner une solution , mais je lui avais juste donné les liens pour qu'il travaille sur son exercice. (il existe aussi DateDiff pour le calcul)
Merci quand même

[shayw]

oui c'est vrai c'est plutôt à imech de chercher