format date

Version imprimable

format date

Bonjour,

Lorsque je saisis une date à partir d'un formulaire au format, jj/mm/aaaa, celle-ci se met au format mm/jj/aaaa. Je suis donc allé dans format cellule d'Excel, je l'ai mis au même format que celui du formulaire, mais sans résultat.
Comment puis-je régler ce soucis ?
Voici le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub TxtDEVIS_Change()
Dim Valeur As Byte
 
    Me.TxtDevis.MaxLength = 10
    Valeur = Len(Me.TxtDevis)
 
    If Valeur = 2 And Mid(Me.TxtDevis, 1, 2) > 31 Then
        Me.TxtDevis.MaxLength = 2 ' interdit d'aller plus loin
        MsgBox "Jour non valide"
        Exit Sub
    End If
 
    If Valeur = 5 And Mid(Me.TxtDevis, 4, 5) > 12 Then
        Me.TxtDevis.MaxLength = 5 ' interdit d'aller plus loin
        MsgBox "Mois non valide"
        Exit Sub
    End If
    If Valeur = 2 Or Valeur = 5 Then Me.TxtDevis = Me.TxtDevis & "/"
 
    If Valeur = 10 And Not IsDate(Me.TxtDevis) Then Me.TxtDevis = "/"
End Sub

Merci par avance

20/03/2008, 14h59
ouskel'n'or

Pourquoi ne pas utiliser un contrôle Calendar que tu affiches pour saisir la date et que tu masques une fois la date saisie ?
Tu peux définir le mois affiché.
Si ça t'intéresse... c'est ici
Un autre moyen, contrôler la saisie... un exemple ici, que tu peux appliquer à l'événement Exit d'un textebox.
A+
20/03/2008, 16h03
NEC14

Citation:

Envoyé par ouskel'n'or

Pourquoi ne pas utiliser un contrôle Calendar que tu affiches pour saisir la date et que tu masques une fois la date saisie ?
Tu peux définir le mois affiché.
Si ça t'intéresse... c'est ici
Un autre moyen, contrôler la saisie... un exemple ici, que tu peux appliquer à l'événement Exit d'un textebox.
A+

Ok merci, je teste et je te tiens informé
A+