|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Validação de hora sem fazer muita comparação
|
 |
|
|
|
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
|
|
|
|
|
