Bonjour,
Je trouve en général mieux le matin comment exposer certaines choses.
Ce sera ici la démonstration s'il en fallait des situations auxquelles peuvent conduire des saisies non rigoureusement contrôlées (obligation de millésime sur 4 chiffres).
une form avec :
- un bouton de commande command1
- une textbox test1 pour saisir une date
- une textbox text2 pour afficher le résultat de la saisie
et le code suivant :
1 2 3 4 5
| Private Sub Command1_Click()
If IsDate(Text1.Text) Then
Text2.Text = DateValue(Text1.Text)
End If
End Sub |
que l 'utilisateur saisisse maintenant le 29/02/2005 (qui n'est pas une date existante et donc valide)
mais avec un millésime sur 2 chiffres (donc 29/02/05) et voyons si VB ne va pas penser que cette date inexistante est valide....et... l'enregistrer comme étany le ...05/02/2029
mais gardons-nous de penser que la chose ne se priduirait qu'avec le 29 février !
saisissons, entre des milliers d'autres exemples, le 31 avril 2006 (qui n'existe pas) sous la forme 31/04/2006 et..la date sera acceptée et enregistrée comme étant le...06/04/1931 !
recommençons les saisies ci-dessus, mais cette fois-ci avec des millésimes sur 4 chiffres. VB,ne se trompera cette fois-ci pas et refusera la saisie
voilà le genre de situation qui peut être générée lorsque l'on permet une saisie de millésime sur 2 chiffres seulement !
Partager