Vbs - controle de champ
marie
-
marie -
marie -
Bonjour !
en fait j'ai un programme vbs relatif a une page html
J'aurais voulu controler le format d'un champ
ex : le champ date ne pourra contenir que du numérique et avoir une forme spécifique du style jj/mm/aaaa
Merci d'avance
en fait j'ai un programme vbs relatif a une page html
J'aurais voulu controler le format d'un champ
ex : le champ date ne pourra contenir que du numérique et avoir une forme spécifique du style jj/mm/aaaa
Merci d'avance
4 réponses
-
-
Bonjour,
Voici quelques possibilités :
Dim oFS
Dim Valeur, Saisie
Set oFS = CreateObject("Scripting.FileSystemObject")
Saisie = InputBox("Saisie", "Date", "18/02/2005")
Valeur = FormatDateTime(Saisie, vbGeneralDate)
wscript.echo Valeur
Valeur = FormatDateTime(Saisie,vbLongDate)
wscript.echo Valeur
Valeur = FormatDateTime(Saisie,vbShortDate)
wscript.echo Valeur
Lupin
-
Bonjour,
Merci de ta reponse
Mais en fait, je voudrais que lorsque l'utilisateur saisi :
- quoi que ce soit dans le champ date, s'il y a un caractere par ex, on lui dise Champ incorrect veuillez saisir une date
- et s'il ne met pas une date correcte (ex: 30/02/2005) on lui dit veullez saisir un date correcte !
Merci de ton aide -
Bonjour,
J'ai trouver la solution .. enfin ma solution !
J'ai fait comme ceci :
'verifier si le contenu est vide
If heure = "" Then
MsgBox "La zone heure n'est pas renseignée, veuillez saisir !", 48 ,"Probleme Saisie"
erreur = erreur + 1
oIE.document.FormHtml.heure.Focus
End if
'verifier si le contenu est numerique
If Not heure = "" and Not IsNumeric(oIE.document.FormHtml.heure.value) Then
MsgBox "La zone heure n'est pas numérique !", 48 ,"Probleme Saisie"
erreur = erreur + 1
oIE.document.FormHtml.heure.Focus
End if
Merci quand meme !
