Changer le format d'écriture de la date

**MADA BLACK** · 17/11/2018, 22h47

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** · 17/11/2018, 23h14

Regarde du cote de DateTime.TryParse.

**MABROUKI** · 18/11/2018, 00h05

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

**MADA BLACK** · 18/11/2018, 00h10

Envoyé par MABROUKI

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

MABROUKI ..merci beaucoup mais franchement je deteste cette MaskedTextBox

**ProgElecT** · 18/11/2018, 09h39

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** · 18/11/2018, 10h40

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 ..
Nom : 1.jpg
Affichages : 748
Taille : 180,1 Ko

Nom : 1.jpg
Affichages : 748
Taille : 180,1 Ko

Amicalement
MADA

**rv26t** · 18/11/2018, 13h52

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

**MADA BLACK** · 18/11/2018, 14h07

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 :

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

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

Cordialement
MADA

**olive7140** · 18/11/2018, 15h40

Bonjour

Code :

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

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

**Phil Rob** · 18/11/2018, 17h22

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 :

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

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.
Nom : Date.jpg
Affichages : 1013
Taille : 8,3 Ko

Nom : Date.jpg
Affichages : 1013
Taille : 8,3 Ko

J'espère que ceci t'aidera ...

**MADA BLACK** · 18/11/2018, 17h36

Envoyé par olive7140

Bonjour

Code :

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

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

Merci olive7140 pour l'aide
Mais malheureusement aussi ca ne fonctionne pas
Amicalement
MADA

**MADA BLACK** · 18/11/2018, 17h37

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 :

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

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.
Nom : Date.jpg
Affichages : 1013
Taille : 8,3 Ko

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

**Phil Rob** · 18/11/2018, 18h32

Je reprends ton code :

Code :

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

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 :

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

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 !

**MABROUKI** · 18/11/2018, 18h53

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 :

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
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 ...

**MADA BLACK** · 18/11/2018, 19h47

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

Changer le format d'écriture de la date

VB.NET

Discussions similaires

Partager

Partager