ZONE DE SAISIE DE DATE FORMAT JJ/MM/AAAA, N'UTILISEZ PLUS LE CONTROLE MASKEDIT.OCX !

Commentaire de moustachu le 18/06/2004 10:38:46

Je crois qu'il s'agit de formatage pas de vérif... enfin c'est ce que je comprends.

++
Moustachu

Commentaire de celiphane le 18/06/2004 13:41:38

vous remarquerez aussi que si vous tapez par exemple :

1
puis /

il retranscrit tout seul en 01/

idem pour les mois.

Commentaire de moustachu le 18/06/2004 14:41:43

Boohhh, tu "pètes" ,une erreur lors de l'évènement LostFocus si CDate(ZT.Text) n'est pas valide.

Commentaire de moustachu le 18/06/2004 15:00:06

C'est vrai qu'à le relire, il est un peu ésotérique ...

Je voulais juste dire que tu pouvais tester la validité de la date avec IsDate (pas CDate) lors que le controle perds le focus.

++
Moustachu

Commentaire de moustachu le 18/06/2004 16:14:08

Ouais ok... c'est le coup du Refresh après un poste. Désolé...

:o)

Moustachu

Commentaire de celiphane le 19/06/2004 10:14:21

Heu... je vois pas là : c'est un code qui remplace le mien ou qu'il le complète ?

Parceque si ça le remplace, tu n'as pas bien compris le but, si ça le complète, je vois pas pourquoi tu précises qu'on peut saisir '02 jan 04' etc vu que mon appli a pour but d'empêcher ce genre de bêtise.

Teste le code avant de dire que tu fais X ou Y en plus court, tu verras exactement ce qu'il fait, et là je veux bien que tu me montres comment tu fais plus court pour les mêmes fonctionnalités...


@+
Celiphane

NB: pour faire plus clair, ton code est un code des années passées de l'informatique, c'est un code de restriction : l'utilisateur mange un message d'erreur qu'il doit valider à chaque fois qu'il saisit quelque chose sans trop comprendre pourquoi. C'est aujourd'hui appelé "vieille école", c'est comme faire valider toutes ses saisies à l'utilisateur.
Le but d'un contrôle Masked, comme celui proposé ici, est de GUIDER l'utilisateur vers la bonne syntaxe... nuance des applications récentes, on a appelé ça l'ergonomie ;)

Commentaire de Olilefou le 19/06/2004 20:36:43

1) J'ai bien marqué que mon exemple ne remplace pas le tien puisqu'il fait autre chose.

2) Puisque tu veux bien que je te montre un code plus cour que le tien et qui fait la même chose, en voici un :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9")
  If Len(Text1.Text) = 2 Or Len(Text1.Text) = 5 Then Text1.Text = Text1.Text & "/"
Case Asc("/")
  If Not IsNumeric(Right(Text1.Text, 1)) Then KeyAscii = 0
  If Len(Text1.Text) = 1 Then Text1.Text = "0" & Text1.Text
  If Len(Text1.Text) = 4 Then Text1.Text = Left(Text1.Text, 3) & "0" & Right(Text1.Text, 1)
Case vbKeyBack
Case Else
  KeyAscii = 0
End Select
If Len(Text1.Text) > 1 And Val(Left(Text1.Text, 2)) > 31 Then Text1.Text = "31" & Mid(Text1.Text, 3)
If Len(Text1.Text) > 4 And Val(Mid(Text1.Text, 4, 2)) > 12 Then Text1.Text = Left(Text1.Text, 3) & "12" & Mid(Text1.Text, 6)
Text1.SelStart = Len(Text1.Text)
End Sub

L'événement Change est vide.

3) Mes clients préfèrent des zones de saisies libres et contrôlées plutôt que des masques, le client et roi (Evidement, mes MsgBox sont plus clairs dans mes applis).

4) Pour les curieux, voici un code mieux que le précédent,
- il gère les dates comme 00/00/0000 ou 31/04/2004
- on n'est pas obligé de mettre MaxLength à 10
- il autorise ctrl+x, ctrl+c et ctrl+v

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Borne As Long
Select Case KeyAscii
Case Asc("0") To Asc("9")
  If Len(Text1.Text) = 2 Or Len(Text1.Text) = 5 Then Text1.Text = Text1.Text & "/"
  If Len(Text1.Text) > 9 Then KeyAscii = 0
Case Asc("/")
  If Not IsNumeric(Right(Text1.Text, 1)) Then KeyAscii = 0
  If Len(Text1.Text) = 1 Then Text1.Text = "0" & Text1.Text
  If Len(Text1.Text) = 4 Then Text1.Text = Left(Text1.Text, 3) & "0" & Right(Text1.Text, 1)
  If Len(Text1.Text) > 6 Then KeyAscii = 0
Case vbKeyBack, 24, 3, 22 'ctrl x c v
Case Else
  KeyAscii = 0
End Select
If Len(Text1.Text) > 4 Then
  Borne = 31
  Select Case Val(Mid(Text1.Text, 4, 2))
  Case 0
    Text1.Text = Left(Text1.Text, 3) & "01" & Mid(Text1.Text, 6)
  Case 4, 6, 9, 11
    Borne = 30
  Case 2
    Borne = 29
  Case Is > 12
    Text1.Text = Left(Text1.Text, 3) & "12" & Mid(Text1.Text, 6)
  End Select
  If Val(Left(Text1.Text, 2)) > Borne Then Text1.Text = Borne & Mid(Text1.Text, 3)
  If Val(Left(Text1.Text, 2)) < 1 Then Text1.Text = "01" & Mid(Text1.Text, 3)
End If
Text1.SelStart = Len(Text1.Text)
End Sub

Je vous laisse gérer les années bissextiles, j'ai la flemme.

5) Moi aussi je suis un gentil.

Bye

Commentaire de celiphane le 19/06/2004 22:53:28

Vu que le test consiste en un simple copier-coller sous vb, j'ai en fait eu le temps de tester ;)

Ces codes sont mieux pensés et plus clair à comprendre (niveau développeur) que le miens ci-dessus proposé.

M'autorises-tu à rééditer ma source en remplaçant mes lignes par les tiennes ? Cela vaudra mieux pour tout le monde !

Beau boulot, j'aurai du me fouiller un peu plus avant de balancer ma "trouvaille" :)

merci,

@+
Celiphane

Commentaire de celiphane le 01/07/2004 11:08:49

non ba en fait en ayant approndi les tests (dans le cadre d'une utilisation professionnelle en faite), je conserve mon code, parceque les 2 codes que tu as proposé Olilefou sont "buggés" :

Le premier, le court, autorise la saisie de N caractères slash (0 slash 0 slash 0 slash ca passe !!!)

Le second, le long, n'autorise pas l'utilisateur à modifier du texte DANS la date : si tu mets 12/05/2003, et que tu sélectionne juste 12 en surbrillance, le fait de taper au clavier remet immédiatement le curseur à la fin de la textbox.

Désolé mais je conserve mon code, plus fonctionnel. A moins que tu ne puisses corriger ca ?

@+
Celiphane

Commentaire de moustachu le 04/08/2004 09:36:34

C'est DateDiff("d",date1,date2)

++
Moustachu