Discussion :

[MoMeBe]

Bonjour Chers amis.

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.

[meziantou]

DateTime.TryParse

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

[_Ez3kiel]

DateTime.TryParse

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

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 !

[tovin]

Bonjour,

Et comme ceci, par exemple :

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

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

[MoMeBe]

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.