Cohérence dans la date
cs_willytito
Messages postés
19
Date d'inscription
mercredi 25 juin 2003
Statut
Membre
Dernière intervention
22 avril 2010
-
30 juil. 2003 à 16:27
Toniolol Messages postés 21 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 25 juillet 2005 - 13 déc. 2004 à 14:07
Toniolol Messages postés 21 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 25 juillet 2005 - 13 déc. 2004 à 14:07
A voir également:
- Cohérence dans la date
- Vb.net format date - Forum Visual Basic
- Vba date to string - Forum Visual Basic
- Sql comparaison date - Forum SQL
- Sql max date ✓ - Forum SQL
- Insert date sql ✓ - Forum Visual Basic
3 réponses
cs_bob10
Messages postés
96
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
28 janvier 2009
30 juil. 2003 à 16:36
30 juil. 2003 à 16:36
Tu peux essayer la fonction isdate(expression) qui te renvoie TRUE si l'expression est une date
salut
:-p bob le teigneux :big)
salut
:-p bob le teigneux :big)
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
28
31 juil. 2003 à 00:17
31 juil. 2003 à 00:17
Et pour completer l'affaire, IsDate() sera bien placé dans l'évènement Validate de ta MaskedBox
Christophe R.
Christophe R.
Toniolol
Messages postés
21
Date d'inscription
mercredi 21 mai 2003
Statut
Membre
Dernière intervention
25 juillet 2005
13 déc. 2004 à 14:07
13 déc. 2004 à 14:07
Voici ce que j'utilise avec une maskedbox (##/##/####) pour eviter que isdate("11/25/2004")=true...
Tout ça avec l'évenement validate que tu peux remplacer par lostfocus, ça dépend de ce que tu recherches.
Private Sub txtDate_validate(cancel As Boolean)
'tester si une valeur est entrée sinon laisser quitter le focus
If txtDate.Text <> "__/__/____" Then
'Tester le mois > 12 ou/et la validité
If Mid(txtDate, 4, 2) > 12 Or IsDate(txtDate.Text) = False Then
Beep
cancel = True
'Surkignement du champ
txtDate.SelStart = 0
txtDate.SelLength = 10
End If
End If
End Sub
Tout ça avec l'évenement validate que tu peux remplacer par lostfocus, ça dépend de ce que tu recherches.
Private Sub txtDate_validate(cancel As Boolean)
'tester si une valeur est entrée sinon laisser quitter le focus
If txtDate.Text <> "__/__/____" Then
'Tester le mois > 12 ou/et la validité
If Mid(txtDate, 4, 2) > 12 Or IsDate(txtDate.Text) = False Then
Beep
cancel = True
'Surkignement du champ
txtDate.SelStart = 0
txtDate.SelLength = 10
End If
End If
End Sub
