Discussion :

[MADA BLACK]

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

[DotNetMatt]

Regarde du cote de DateTime.TryParse.

[MABROUKI]

BONJOUR
Voir aussi du cote du control MaskedTextBox qui simplifie l'existence ...

[MADA BLACK]

BONJOUR
Voir aussi du cote du control MaskedTextBox qui simplifie l'existence ...

MABROUKI ..merci beaucoup mais franchement je deteste cette MaskedTextBox

[ProgElecT]

Salut

je veux taper la date comme ça ( 17/05/2011 ) .. et se sera ma fête si on peut taper les deux formats

En faisant

Code :

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

1
2
Dim StrvDate  As String = Cstr(vDate1)
StrvDate.Replace("/,"-")

peut être , (je n'est que très peu de connaissance en VB.net, mais il me semble que )

[MADA BLACK]

Merci beaucoup ProgElect
Ravi de vous rencontrer maitre
Je vais essayer des que je rentre chez moi

Malheureusement cher ProgElect
Voila ce que j'ai obtenu ..

Amicalement
MADA