Salut tout le monde
SVP Gentelman
Si vous pouvez m'aider a resoudre ce probleme
J'ai 3 TextBox
TextBox1 pour taper la date de naissance
TextBox2.Text = DateTime.Now.Date ( En Form1 Load )
TextBox3 pour afficher automatiquement l'age
Le code fonctionne tres tres bien mais il faut taper la date comme ca ( 17-05-2011 ) si non le code ne fonctionne pas
Tandisque moi .. je veux taper la date comme ca ( 17/05/2011 ) .. et se sera ma fete si on peut taper les deux formats
Mon code :
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
Imports System.Globalization
Public Class Form1
    Function CalculateAge(ByVal vDate1 As Date, ByVal vdate2 As Date) As String
        Dim vYears As Integer, vMonths As Integer, vDays As Integer
        vMonths = DateDiff("m", vDate1, vdate2)
        vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
        If vDays < 0 Then
            vMonths = vMonths - 1
            vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
        End If
        vYears = vMonths \ 12
        vMonths = vMonths Mod 12
        CalculateAge = vYears & "Year " & " " & vMonths & "Month " & " " & vDays & "Day"
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.Text = DateTime.Now.Date
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim textbox1Date, textbox2Date As DateTime
        If DateTime.TryParseExact(TextBox1.Text, "dd/MM/yyyy", New CultureInfo("de-DE"), DateTimeStyles.None, textbox1Date) AndAlso _
   DateTime.TryParseExact(TextBox2.Text, "dd/MM/yyyy", New CultureInfo("de-DE"), DateTimeStyles.None, textbox2Date) Then
            TextBox3.Text = CalculateAge(textbox1Date, textbox2Date)
        End If
        If TextBox1.Text = "" Then
            TextBox3.Text = ""
        End If
    End Sub
End Class
Merci beaucoup d'avance pour l'aide
Amicalement
MADA