Comment vérifier si la valeur Text d'une Txtbox est bien XX:XX:XXRésolu

Question

Bonjour,

   j'aimerrais savoir comment v&#233;rifier si la valeur Text d'une Txtbox est bien XX:XX:XX pour savoir si la valeur entr&#233; est bien une heure possible ( entre 00:00:00 et 23:59:59 par exemple ).

Merci &#224; l'avance!!

Manix

cs_Warning · Accepted Answer

c toujours mieux qu'une date  
Sinon il s'uffit d'allier les deux :
If text1.text like "##:##:##" and isdate(text1.text) then

&#231;a devrait suffire pour etre parfait... ou presque ? 

Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Daemonight · Answer

si il n'y a que sa dans la text box, perso je ferrai : DIM correct AS boolean correct = False IF val(left(textbox1.text,2) ) > 0 AND val(left(textbox1.text,2) ) < 24 THEN IF val(mid(textbox1.text, 3, 2) > 0 AND val(mid(textbox1.text, 3, 2) < 59 THEN IF val(right(textbox1.text, 2) > 0 AND val(right(textbox1.text, 2) < 59 THEN correct = True END IF END IF END IF IF Not correct, then msgboxt("Erreur dans l'heure indiquée") END IF par exemple ... <--------------------------> On trouve toujours ce que l'on cherche dans le dernier endroit ou l'on regarde

cs_hassen · Answer

il ya quelque chose de plus simple

if isdate(text1.text)=true then
   ' text1 est une heure valide
else
   text1 est une heure pas valide
end if

Hassen TUNISIE

Daemonight · Answer

a oui, forcement je connaissait pas la fonction :-D


et sa marche meme si on &#233;crit 23h17m16s ??


On trouve toujours ce que l'on cherche dans le dernier endroit ou l'on regarde

cs_Warning · Answer

Encore une autre petite astuce: 
If text1.text like "##:##:##" then ...


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cqui789 · Answer

isdate est tres bien mais dangereux, si on entre une date, par exemple 25/12/2005, il rend vrai.



Il faux ajouter un teste sur le jour qui doit etre 0 pour une heure.

cqui789 · Answer

C'est pas jour (qui doit etre le 30 decembre 1899) qu'il faut tester mais datevalue...ca donnerai, 

if isdate(text1.text)=true then

  if datevalue(text1)=0 then
   ' text1 est une heure valide

  else

    ' text1 est une date, pas une heure

  end if
else
   text1 n'est ni  une heure ni une date valide
end if




pour ce qui est des formats non standards, 23h17m16s 
ou pire, pourquois pas 10heure moins le quart du matin
, bon courage...

cs_hassen · Answer

tu n'a qu'a autoriser juste les nombre et ":" 


c.a.d les caractere valide "123456789:"


tu fais ton test dans l'evenement keypresse de la zone text comme ca tu est sur qu'il ne peut pas entrer une date

Hassen TUNISIE

cs_Warning · Answer

Donc If text1.text like "##:##:##" then  est bien la meilleure solution ;). 

Les # corresponde a un chiffre dans la comparaison avec like. Donc tout ce qui n'est pas un chiffre sera refus&#233;.
En gros:

"11:24:05" like "##:##:##" = True
"1e:az:fr" like "##:##:##" = false
"11/03/05" like "##:##:##" = false
"toto" like "##:##:##" = false

donc c'est bon ;)


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_hassen · Answer

c pas bon parce que 
"99:99:99" like "##:##:##" =True ' ce n'est pas vrai 
alors c'est pas une bonne solution

Hassen TUNISIE

cs_Manix123 · Answer

Merci beaucoup &#224; vous tous qui m'avez r&#233;pondu aussi rapidement  j'ai bien trouver ce que je cherchais.... Special thanks &#224; Warning 

Manix

Comment vérifier si la valeur Text d'une Txtbox est bien XX:XX:XX

11 réponses

Discussions similaires