Salut,

En VB, comment fait-on pour afficher une date saisie au format
JJMMAAAA en JJ/MM/AAAA

C'est à dire afficher en temps réél les "/"

ex: je tape "25122003", et pendant la saisie, l'affichage est automatiquement "25/12/2003"

Merci !

salut

tu peux utiliser le controle microsoft masked edit control 6.0 (sp3) que tu vas chercher dans composant

dans la fenetre propriété à MASK tu écris ##/##/##

et dans ton programme

dat.Mask = "": dat.Text = "": dat.Mask = "##/##/##"
si tu appeles ton controle, dat

Merci pour cette réponse rapide.

Mais il n'y a donc aucun moyen de faire ça avec le controle textbox? C'est embêtant parce que le reste de mon appli utilise ce textbox, et c'est un peu galère de tout modifier ;-(

Dim Temp As String
Temp = TextBox.Text
TextBox.Text = Left(Temp, 2) & "/" & Mid(Temp, 3, 2) & "/" & Right(Temp, 4)

Voila :) j'ai pas testé mais ça devrait marcher
++
KaViDee

j'ai oublié un truc:
dans l'évenement change du textbox mets ça:

Dim Temp As String
If Len(TextBox.Text) = 8 Then
Temp = TextBox.Text
TextBox.Text = Left(Temp, 2) & "/" & Mid(Temp, 3, 2) & "/" & Right(Temp, 4)
End If

Si il veut faire ca excactement au moment de la frappe, dans l'événement change du textbox, ne peut-on pas mettre :

If len(text1.text) = 2 or len(text1.text) = 4 Then
text1.text=text1.text & "/"
text1.selstart = len(text1.text)
End if

[ Lien ]

non ça ne marcheras pas parce que des que tu en sera a "24/1" ça va te rajouter un slash la : "24/1/"
Dans la condition il faudrait mettre alors:

If Len(TextBox.Text) = 2 Or Len(TextBox.Text) = (2 + 1) Or Len(TextBox.Text) = (4 + 2) Then 'On rajoute + 1 pour chaque élément qui a besoin d'un slash, d'ou le 2 + 1 et le 4 + 2
'le premier chiffre correspond a la taille de l'élément, et au 2ème on rajoute + 1 a chaque fois qui correspond au nombre de slashs
TextBox.Text = TextBox.Text & "/"
TextBox.SelStart = Len(TextBox.Text)
End If

KaViDee

encore une boulette lol

Private Sub TextBox_Change()
If Len(TextBox.Text) = 2 Or Len(TextBox.Text) = (2 + 2 + 1) Then
TextBox.Text = TextBox.Text & "/"
TextBox.SelStart = Len(TextBox.Text)
End If
End Sub

cette fois c'est la bonne lol

txtdate.text = date
txtheure.text = time
Tu met sa sur un timer a interval 200 et tu a l'heure refraichie tte les secondes=)

pk un intervalle de 200 ?
1000 suffit (1000 millisecondes soit 1 seconde)
c pas ce qui demandait mais bon