Changer le format d'écriture de la date

Version imprimable

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:

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

17/11/2018, 23h14
DotNetMatt

Regarde du cote de DateTime.TryParse.
18/11/2018, 00h05
MABROUKI

BONJOUR
Voir aussi du cote du control MaskedTextBox qui simplifie l'existence ...
18/11/2018, 00h10
MADA BLACK

Citation:

Envoyé par MABROUKI

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

MABROUKI ..merci beaucoup mais franchement je deteste cette MaskedTextBox
18/11/2018, 09h39
ProgElecT
Salut

Citation:

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:

1 2 Dim StrvDate As String = Cstr(vDate1) StrvDate.Replace("/,"-")
peut être 8O, (je n'est que très peu de connaissance en VB.net, mais il me semble que :aie:)
18/11/2018, 10h40
MADA BLACK

1 pièce(s) jointe(s)

Fusion de messages consécutifs.

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 ..
Pièce jointe 427805
Amicalement
MADA
18/11/2018, 13h52
rv26t

Bonjour,
regardez la coloration syntaxique, il manque un guillemet (")
18/11/2018, 14h07
MADA BLACK
Citation:

Envoyé par rv26t

Bonjour,
regardez la coloration syntaxique, il manque un guillemet (")

Merci beaucoup rv26t
Vs avez bien raison .. mais
Je l'ai corrige mais ca ne fonctionne pas
Code:

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

Bonjour

Code:

1
2
 
StrvDate = StrvDate.Replace("/", "-")

18/11/2018, 17h22
Phil Rob

1 pièce(s) jointe(s)
Bonjour,

Il faut noter que le format de la date est celui défini dans les paramètres régionaux du système. Chez moi, je peux encoder JJ/MM/AAAA.
Pour info encore, StrvDate = StrvDate.Replace("/", "-") doit remplacer le "/" par "-" dans la chaine saisie? Or en relisant ta question initiale, il me semble que tu veux pouvoir encoder directement JJ/MM/AAAA et non JJ-MM-AAAA corrigé ensuite.
Je te propose donc le code suivant :
Code:

1 2 3 Dim MaDate As Date MaDate = TextBoxSaisieDate.Text MessageBox.Show(MaDate)
Comme illustré ci-dessous, VB.Net convertit parfaitement le texte d'une date dans le format qui lui convient.
Pièce jointe 427865
J'espère que ceci t'aidera ...
18/11/2018, 17h36
MADA BLACK
Citation:
Envoyé par olive7140

Bonjour

Code:

1 2 StrvDate = StrvDate.Replace("/", "-")
Merci olive7140 pour l'aide
Mais malheureusement aussi ca ne fonctionne pas
Amicalement
MADA
18/11/2018, 17h37
MADA BLACK
Citation:
Envoyé par Phil Rob

Bonjour,

Il faut noter que le format de la date est celui défini dans les paramètres régionaux du système. Chez moi, je peux encoder JJ/MM/AAAA.
Pour info encore, StrvDate = StrvDate.Replace("/", "-") doit remplacer le "/" par "-" dans la chaine saisie? Or en relisant ta question initiale, il me semble que tu veux pouvoir encoder directement JJ/MM/AAAA et non JJ-MM-AAAA corrigé ensuite.
Je te propose donc le code suivant :

Code:

1 2 3 Dim MaDate As Date MaDate = TextBoxSaisieDate.Text MessageBox.Show(MaDate)

Comme illustré ci-dessous, VB.Net convertit parfaitement le texte d'une date dans le format qui lui convient.
Pièce jointe 427865
J'espère que ceci t'aidera ...
Phil Rob
Vous m'avez sauver plusieurs fois .. merci beaucoup .. tres gentil de votre part
Mais j'ai pas pu integrer votre code dans le mien
Cordialement
MADA

Je reprends ton code :

Code:

1
2
3
4
5
6
7
8
9
10
    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

et j'en fais ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
   ' Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave ' POUR NE PAS TERNTER LE CALCUIL A CHAQUE CARACTERE ENCODE
        Dim textbox1Date, textbox2Date As Date   ' Au lieu de DateTime !!! D'ailleurs, les arguments de ta fonction CalculateAge sont bien de type Date
textbox1Date = TextBox1.Text  ' Faire d'abord laz conversion du Text en Date
textbox2Date = TextBox2.Text
            TextBox3.Text = CalculateAge(textbox1Date, textbox2Date)
        End If
        If TextBox1.Text = "" Then
            TextBox3.Text = ""
        End If
    End Sub

Cela doit fonctionner et tu pourras même encoder la date dans l'un et l'autre format !

BONJOUR

Le format de saisie de Date est gouverné par le panneau de configuration de l'user dans :

Panneau de Configuration -> Régions (Windows 10)...

Sur ma machine configurée en Langue française avec format court de Date (dd/MM/yyyyy)
la Date Saisie peut être saisie au choix :

1/ Au format STANDARD COURT suivant : "2007-07-04"
2/ Au format STANDARD FRANCAIS COURT suivant : "04/07/2007"

Pour tester cette situation voici l'exemple (VS 2010 étant installé sur ma machine)

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
Imports System.Globalization
 
Public Class Form2
    Private ci As CultureInfo
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ci = CultureInfo.CurrentCulture
        TextBox1.Text = "04/07/2007"
        TextBox2.Text = "04-09-1980"
 
    End Sub
 
    Private Sub TextBox1_TextChanged(sender As Object, e As System.EventArgs) Handles TextBox1.TextChanged
        Dim fmt As String = "dd/MM/yyyy"
        If IsDate(TextBox1.Text) Then
            Dim testdate As DateTime = Nothing
            If Date.TryParseExact(TextBox1.Text, fmt, ci, DateTimeStyles.AssumeLocal, testdate) Then
                Label1.Text = Date.ParseExact(TextBox1.Text, fmt, ci, DateTimeStyles.AssumeLocal)
            Else
                Label1.Text = "format de date invalide !!!"
                Me.ActiveControl = TextBox1
                TextBox1.Select(0, TextBox1.Text.Length)
 
            End If
        End If
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As System.EventArgs) Handles TextBox2.TextChanged
        Dim fmt As String = "dd/MM/yyyy"
        If IsDate(TextBox2.Text) Then
            Dim testdate As DateTime = Nothing
            If Date.TryParseExact(TextBox2.Text, fmt, ci, DateTimeStyles.AssumeLocal, testdate) Then
                Label2.Text = Date.ParseExact(TextBox2.Text, fmt, ci, DateTimeStyles.AssumeLocal)
            Else
                Label2.Text = "format de date invalide !!!"
                Me.ActiveControl = TextBox2
                TextBox2.Select(0, TextBox2.Text.Length)
 
            End If
        End If
    End Sub
End Class

ce form accepte les 2 formats mentionnés ...

18/11/2018, 19h47
MADA BLACK

Enfin maitre Phil Rob ..ca fonctionne
je vous remercie beaucoup respectable homme
Parfaitement resolu par votre dernier code
Merci aussi : MABROUKI pour vos efforts
Cordialement
MADA