Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2560 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Forcer la saisie d'une date au format jj/mm/aaaa dans une textbox

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Forcer la saisie d'une date au format jj/mm/aaaa dans une textbox

n°431651
mario51
Posté le 18-06-2003 à 10:36:03  profilanswer
 

Bonjour à tous !
 
J'ai un p'tit souci :
 
COmment faire pour Forcer la saisie d'une date au format jj/mm/aaaa dans une textbox
 
J'ai bien la fonction isDate()
mais si je saisie 1/1/2003 :  ca passe !
 
une idée ?
 
merci
 


---------------
Il ne faut pas vendre la peau de l'ours.....NON, il ne faut pas!!!!
mood
Publicité
Posté le 18-06-2003 à 10:36:03  profilanswer
 

n°431888
Le_Toto
Posté le 18-06-2003 à 14:09:48  profilanswer
 

   Voici une idée :
 
' Tu déclare une varible de type date
 Dim MaDate As Date
     
    ' Tu récupere le contenu de ta textbox dans cette variable
    MaDate = CDate(textbox1.Text)
    ' Tu convertit la variable texte au format que tu souhaite
    MaDate = Format(texte, "jj/mm/yyyy" )
 
    --->voila maintenant dans Date tu as 01/01/2003 !:bounce:

n°431902
mario51
Posté le 18-06-2003 à 14:30:25  profilanswer
 

Le_Toto a écrit :

   Voici une idée :
 
' Tu déclare une varible de type date
 Dim MaDate As Date
     
    ' Tu récupere le contenu de ta textbox dans cette variable
    MaDate = CDate(textbox1.Text)
    ' Tu convertit la variable texte au format que tu souhaite
    MaDate = Format(texte, "jj/mm/yyyy" )
 
    --->voila maintenant dans Date tu as 01/01/2003 !:bounce:  


 
le pb est:
si je saisis 1/21/2003 le isDate() l'accepte aussi , mais moi je le veux pas!!!


---------------
Il ne faut pas vendre la peau de l'ours.....NON, il ne faut pas!!!!
n°431955
Le_Toto
Posté le 18-06-2003 à 15:29:19  profilanswer
 

  ouai forcement il l'accepte ton "Isdate" vus que c'est une Date que tu lui rentre.Ne paniquons pas :
 
une autre solution :
 
' tu déclare une variable pour stoker exactement le texte qu'il y a dans ta textbox
Dim Texte as string
 
'Tu chope ce qu'ily a dans ta text box
Texte=textbox1.text
 
' La tu pete ton isdate
If IsDate(Texte) = True Then
' si c'est une date alors :        
    ' Tu convertit la chaine en date
    Texte = CDate(Texte)
    ' En fait y'as meme pas besoin de format, la conversion en date sufit
    ' Tu peut afficher la date qui te convient dans ta textbox
    textbox1.Text = Texte
Else
    ' si c'est pas une date alors ...
    MsgBox ("Entrer une date !!" )
End If
 
 :bounce:

n°431969
mario51
Posté le 18-06-2003 à 15:42:29  profilanswer
 

Merci beaucoup pour ton aide !
 
Je vais essayer ca ....


---------------
Il ne faut pas vendre la peau de l'ours.....NON, il ne faut pas!!!!
n°432442
mareek
Et de 3 \o/
Posté le 18-06-2003 à 21:55:52  profilanswer
 

pourquoi tu n'utilise pas le controle DateTimePicker, ça serait bien plus pratique (il me semble qu'on le trouve dans les windows common controls 2).


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°432639
drasche
Posté le 19-06-2003 à 08:47:05  profilanswer
 

mareek a écrit :

pourquoi tu n'utilise pas le controle DateTimePicker, ça serait bien plus pratique (il me semble qu'on le trouve dans les windows common controls 2).


En effet :jap:
 
Sinon tu peux toujours utiliser un MaskedEditBox, c'est plus léger et ça fonctionne par masque de saisie (similaire à ce qu'on fait en Access).


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°432841
mareek
Et de 3 \o/
Posté le 19-06-2003 à 12:37:32  profilanswer
 

drasche a écrit :


En effet :jap:
 
Sinon tu peux toujours utiliser un MaskedEditBox, c'est plus léger et ça fonctionne par masque de saisie (similaire à ce qu'on fait en Access).


ça m'intéresse ça, on le trouve dans quel composant ActiveX ?


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°432881
drasche
Posté le 19-06-2003 à 13:20:00  profilanswer
 

mareek a écrit :


ça m'intéresse ça, on le trouve dans quel composant ActiveX ?


Microsoft Masked Edit Control, il a son OCX à lui tout seul: MSMASK32.OCX
 
je l'ai en tout cas sur VB6 Professional.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°432934
mareek
Et de 3 \o/
Posté le 19-06-2003 à 14:07:07  profilanswer
 

drasche a écrit :


Microsoft Masked Edit Control, il a son OCX à lui tout seul: MSMASK32.OCX
 
je l'ai en tout cas sur VB6 Professional.

thx, je l'avait zappé  :jap:


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
mood
Publicité
Posté le 19-06-2003 à 14:07:07  profilanswer
 

n°438728
mario51
Posté le 25-06-2003 à 10:13:59  profilanswer
 

MERCI à tous !
 
C'est exactement ce que je cherchais .....


---------------
Il ne faut pas vendre la peau de l'ours.....NON, il ne faut pas!!!!

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Forcer la saisie d'une date au format jj/mm/aaaa dans une textbox

 

Sujets relatifs
Accélérer le temps de conversion des mails en format MIMEproblème de date
Récupérer la date système et l'enregistrer dans une base de donnéesprobleme de date ASP > SQL
conversion de formatEasyPHP : Probleme de date
Selection suivant la date...[VBA - Access] Récupérer une Date à partir d'une Date Time
[PHP / MYSQL] comparer simplement 2 dates au format datetime[MYSQL] Manipulation DATE
Plus de sujets relatifs à : Forcer la saisie d'une date au format jj/mm/aaaa dans une textbox


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR