test sur saisie de date dans un textbox?

Version imprimable

08/03/2013, 01h45
MoMeBe

test sur saisie de date dans un textbox?

Bonjour Chers amis.
:calim2:
je cherche un code source en vb (VS2012) qui contrôle lors du saisie de la date dans un textbox. C.a.d lorsque je tape une date quelconque
(exp: 33/14/20013), le code m'indique dans un MsgBox que le jour ou le mois sont incorrecte. et que si j'entre pour le mois "02" (qui est février) le nombre de jour saisie ne doit pas dépasser le 28 ou 29.
autre exemple: si je tape 31/06 il n'indique que le moi Juin compte 30 jours. J’espère que ma demande est lisible.
:(
Merci comme même pour tous le monde.
08/03/2013, 07h10
meziantou

DateTime.TryParse

Pourquoi ne pas utiliser un DateTimePicker au lieu d'un TextBox ?
08/03/2013, 09h22
_Ez3kiel

Citation:

Envoyé par meziantou

DateTime.TryParse

Pourquoi ne pas utiliser un DateTimePicker au lieu d'un TextBox ?

:ccool:

Sinon tu peux tenter avec des tests via Regex.
Ou alors utiliser une maskedTextBox au format Date et tester des substrings à l'intérieur ou tester le total avec un Ctype(taDate, Date).

Il y a plein de solutions ! :ccool:

Bonjour,

Et comme ceci, par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub TextBox1_LostFocus(sender As Object, e As System.EventArgs) Handles TextBox1.LostFocus
        If Not IsDate(TextBox1.Text) Then
            Select Case Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2))
                Case 1, 3, 5, 7, 8, 10, 12
                    If Val(Microsoft.VisualBasic.Left(TextBox1.Text, 2)) Then
                        MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 31 jours")
                    End If
                Case 4, 6, 9, 11
                    If Val(Microsoft.VisualBasic.Left(TextBox1.Text, 2)) Then
                        MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 30 jours")
                    End If
                Case 2
                    If (Val(Microsoft.VisualBasic.Right(TextBox1.Text, 2)) / 4) = 0 Then
                        REM année bissextile
                        MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 29 jours")
                    Else
                        MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 4, 2)) & " ne compte pas plus de 28 jours")
                    End If
                Case Else
                    MsgBox("L'année ne compte pas plus de 12 mois")
            End Select
        End If
    End Sub

08/03/2013, 15h02
sinople

Pourquoi utiliser un textbox plutôt qu'un datetimepicker ?

Bonne question, néanmoins si on désire apporter une attention particulière à la vitesse et l'efficacité de la saisie dans le formulaire au clavier (Un formulaire ou on prend le temps de configurer correctement les TabStops et les Tabindex...), je pense qu'un opérateur de saisie ira plus rapidement sur un textbox qu'un datetimepicker. Par contre un maskedtextbox est à mon avis la meilleure solution dans ce cas.

Sinon la solution de Meziantou est la bonne.

A utiliser dans l'évenement validating du textbox. Si la conversion est un échec alors il faut changer la propriété e.Cancel à true pour empêcher le changement du contrôle au focus et indiquer l'erreur (Msgbox, icone d'erreur, changement de couleur du contrôle ou du text, etc...).
08/03/2013, 15h42
MoMeBe

probleme resolut

La réponse de tovin m'a beaucoup aider.
car en plus je dois mettre dans mon prg une condition lors de l'ajout d'un nouveau fonctionnaire, par sa date de naissance je calcule sa date de retraite. et sa date de retraite ne doit pas être a la date du système (c.a.d il ne doit pas être en retraite avant même sa recrutement.
11/03/2013, 19h17
nabileon

c simple ;)

If IsDate(tonChamp.Text) = False Then
msgbox"---"
end if

Object atteind

Bonjour

Voici Ce que voudrais faire comme test sur la Date de Naissance, et c'est grâce à tovin qui m'a beaucoup aider.

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 Private Sub TXTDateNaisPers_Validated(sender As Object, e As EventArgs) Handles TXTDateNaisPers.Validated
        Dim Jour As String
        Dim Mois As String
        Dim Annee As String
 
        If Not IsDate(TXTDateNaisPers.Text) Then
            Select Case Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2))
                Case 1, 3, 5, 7, 8, 10, 12 '31
                    If Val(Microsoft.VisualBasic.Left(TXTDateNaisPers.Text, 2)) Then
                        'MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2)) & " ne compte pas plus de 31 jours", 0 + 48, "Erreur sur le Nombre de Jour")
                        MsgBox("شهر " & Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2)) & "عدد أيامه 31 يوما فقط", 0 + 48, "خطء في عدد أيام الشهر ")
                        TXTDateNaisPers.Clear()
                        TXTDateRetraite.Clear()
                        TXTDateNaisPers.Focus()
                    End If
                Case 4, 6, 9, 11 '30
                    If Val(Microsoft.VisualBasic.Left(TXTDateNaisPers.Text, 2)) Then
                        'MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2)) & " ne compte pas plus de 30 jours", 0 + 48, "Erreur sur le Nombre de Jour")
                        MsgBox("شهر  " & Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2)) & " عدد أيامه 30 يوما فقط", 0 + 48, "خطء في عدد أيام الشهر")
                        TXTDateNaisPers.Clear()
                        TXTDateRetraite.Clear()
                        TXTDateNaisPers.Focus()
                    End If
                Case 2 '28-29
                    If (Val(Microsoft.VisualBasic.Right(TXTDateNaisPers.Text, 2)) / 4) = 0 Then
                        REM année bissextile
                        'MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2)) & " ne compte pas plus de 29 jours", 0 + 48, "Erreur sur le Nombre de Jour")
                        MsgBox("شهر فيفري يحتوي على 29 يوما هذه السنة", 0 + 48, "خطء في عدد أيام شهر فيفري")
                        TXTDateNaisPers.Clear()
                        TXTDateRetraite.Clear()
                        TXTDateNaisPers.Focus()
                    Else
                        'MsgBox("Le mois " & Val(Microsoft.VisualBasic.Mid(TXTDateNaisPers.Text, 4, 2)) & " ne compte pas plus de 28 jours", 0 + 48, "Erreur sur le Nombre de Jour")
                        MsgBox("شهر فيفري يحتوي على 28 يوما هذه السنة", 0 + 48, "خطء في عدد أيام شهر فيفري")
                        TXTDateNaisPers.Clear()
                        TXTDateRetraite.Clear()
                        TXTDateNaisPers.Focus()
                    End If
                Case Else
 
                    'MsgBox("L'année ne compte pas plus de 12 mois", 0 + 48, "Erreur sur le Nombre de mois")
                    MsgBox("لتذكير فإن عدد أشهر السنة 12 شهرا وليس أكثر", 0 + 48, "خطء في عدد أشهر السنة")
                    TXTDateNaisPers.Clear()
                    TXTDateRetraite.Clear()
                    TXTDateNaisPers.Focus()
            End Select
        End If
        If Not IsDate(TXTDateNaisPers.Text) Then
            MsgBox("الرجاء إدخال تاريخ الولادة", 0 + 48, "خطء في تاريخ الولادة")
 
        ElseIf Val(Mid(TXTDateNaisPers.Text, 7, 4)) <= Val(Mid(DateString, 7, 4) - 55) Then
            MsgBox("الموظف الجديد السيد" & " " & TXTPreNomPers.Text & " " & TXTNomPers.Text & " " & " قد جاوج سن التقاعد قبل مباشرته لعمله", 0 + 48, "خطء في تاريخ الولادة")
            TXTDateNaisPers.Clear()
            TXTDateRetraite.Clear()
            TXTDateNaisPers.Focus()
        Else
            If Len(TXTDateNaisPers.Text) = 10 Then
                Jour = Mid(TXTDateNaisPers.Text, 1, 2)
                Mois = Mid(TXTDateNaisPers.Text, 4, 2)
                Annee = Mid(TXTDateNaisPers.Text, 7, 4)
                If Mois = 12 Then
                    TXTDateRetraite.Text = "01\01" & "\" & Annee + 56
                Else
                    TXTDateRetraite.Text = "01\" & Mois + 1 & "\" & Annee + 55
                End If
            End If
        End If
    End Sub

Pour le fonctionnaire c'est au nouveau mois après 55 ans qu'il sera en retraite. C.a.d s'il est née le 01-31/X/YYYY il sera en retraite 01/X+1/YYYY+55

NB: Les caractères incompréhensible dans MsgBox ne sont que des commentaires qui sont écrit en arabe comme "Erreur sur le nombre de jour. ou la date est vide, il faut taper une date. ou le nouveau fonctionnaire est en retraite avant son recrutement.....

Merci pour tous

12/03/2013, 12h47
Sankasssss

Citation:

Envoyé par sinople

... néanmoins si on désire apporter une attention particulière à la vitesse et l'efficacité de la saisie dans le formulaire au clavier...
...je pense qu'un opérateur de saisie ira plus rapidement sur un textbox qu'un datetimepicker. Par contre un maskedtextbox est à mon avis la meilleure solution dans ce cas.

J'étais du même avis que toi jusqu'à ce que je voie un utilisateur taper une date dans ce composant en utilisant les touches directionnelles après chaque chiffre à la place de la séparation.

en plus les espaces sont pris en compte ainsi que le /

donc l'utilisateur peut taper :

Citation:

18/06/2005
18 6 2005
18 -> 06 -> 2005
18/6/5
5/5/82

ça fonctionne.

L'utilisateur a donc tout le confort du DateTimePicker avec la rapidité d'encodage. :ccool:
Aucune raison de ne pas profiter de ce composant.
13/03/2013, 03h42
MoMeBe

faute de frappe

Bonjour SanKassssss

peut être que j'ai mal expliquer ou que c'est une faute de frappe car j’utilise un Masked TextBox et pas un simple TextBox donc les vides ou les < , > ,- ne sont pas accepter car dans sa propriété Mask je l'ai affecter type date avec des sépareteurs /

Merci.
13/03/2013, 10h04
Sankasssss

Bonjour MoMeBe, je ne faisais que répondre à sinople sur la rapidité de saisie du composant datetimepicker ;)