|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Validações)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Validação de hora sem fazer muita comparação
|
![](images/box01dirsup.gif) |
|
|
Postada em 26/12/2006 por Álvaro
Coisa simples, primeiro no evento maxlength você coloca 5, depois você força ao usuário a lançar a hora tudo junto, depois vc compara se o valor que ele digitou é maior que 2359 se for manda ele digitar novamente. O código ficaria assim
If IsNumeric(TxtEntrada.Text) = False Or Val(TxtEntrada1.Text) > 2359 Or Val(TxtEntrada1.Text) < 0 Then MsgBox "Digite uma hora válida e/ou tudo junto ex: 0800", vbInformation else txtentrada1.text=format(txtentrada1.text,"0#:##") endif
Com isso mesmo que o usuário digite 700, na formatação final ficará 07:00
Viram Simples Abraço
|
|
|
|
![](images/hosted.gif)
|