Discussion :

[Marc_27]

Bonjour,

J'essaye de faire une boucle pour tester la valeur saisie dans une InputBox:

Code :

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

1
2
3
4
Dim st As String = " "
While st.Length <> 10 And Not st.Contains("/")
    st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)")
End While

Le problème est qu'il ne marche pas


J'ai essayé avec la date "10/12/09" et le code a bien continué

Est-ce que quelqu'un sait pour quoi?
Merci d'avance

[Hinault Romaric]

Code :

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

1
2
3
4
 
While st.Length <> 10 And Not st.Contains("/")
    st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)")
End While

D'abord ta boucle ne sert a rien puisque si l'on entre une valeur donc le nombre de caractère est different de 10 et ne contient pas "/" on entre dans une boucle infinie.

Et si ta chaine contient un seul "/" c'est normal qu'on entre pas dans cette boucle

[Marc_27]

Merci pour ta reponse lilroma.

D'abord ta boucle ne sert a rien puisque si l'on entre une valeur donc le nombre de caractère est different de 10 et ne contient pas "/" on entre dans une boucle infinie.

L'idée c'est de forcer une saisie de la date au bon format, et faire le boucle jusqu'à cette saisie...

Peut-être j'ai m'exprimé pas bien:
Malgré le fait d'avoir un "/", ma date n'avais pas 10 caractères...
Est-ce que le boucle devrait continuer?

[tomlev]

Dans la condition, ça devrait être un OU, pas un ET. Il suffit qu'une seule des conditions soit vérifiée pour qu'on continue à boucler

Code :

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

1
2
3
4
Dim st As String = " "
While st.Length <> 10 Or Not st.Contains("/")
    st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)")
End While

On peut aussi l'écrire sous cette forme :

Mais de toutes façons ce test n'est pas suffisant pour savoir si la date saisie est valide. Il vaudrait mieux faire comme ça :

Code :

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

1
2
3
4
5
Dim st As String = " "
Dim dt As DateTime
While Not DateTime.TryParseExact(st, "dd/MM/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, dt)
    st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)")
End While

[Hinault Romaric]

Code :

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

1
2
3
4
5
 
Dim st As String = " "
While st.Length <> 10 Or Not st.Contains("/")
st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)")
End While

Même avec sa c'est pas bon parceque en saisissant n'importe quoi avec 10 caractere et un "/" comme caractères sa va passer faut que tu utilise la seconde méthode.

Code :

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

1
2
3
4
5
6
 
Dim st As String = " "
Dim dt As DateTime
While Not DateTime.TryParseExact(st, "dd/MM/yyyy", CultureInfo.InvariantCulture, DateTimeStyles.None, dt)
    st = InputBox("Veuillez entrer la date d'entrée (jj/mm/aaaa)")
End While

[Marc_27]

Merci à toi aussi tomlev.

J'ai essayé ton code, mais il dit que CultureInfo et DateTimeStyles ne sont pas déclarés...

[Marc_27]

J'ai trouvé Imports System.Globalization.

Est-ce que ça suffi?

[tomlev]

Est-ce que ça suffi?

Ben essaie, tu verras bien
(a priori oui, ça suffit...)

[Marc_27]

J'ai essayé,

les erreurs ont bien disparus mais on ne sait jamais...

Bon,
Merci beaucoup encore une fois