USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Validações)

Título da Dica:  Validar Hora HH:MM
Postada em 16/2/2006 por caliimar         
' Cole as duas funções em um módulo e chame validaHora no
' evento que achar melhor bastando informar a hora em string
'Funciona só no formato HH:MM - mas pode ser melhorada
Public Function validaHora(ValHora As String) As Boolean
If Len(ValHora) <> 5 Then
MsgBox "Hora inválida!!! Tente por exemplo algo como " & _
  Format(Time, "hh:mm") & ".", vbCritical, "Dados inválidos!"
   Exit Function
    validaHora = False
     End If
Dim hora As String
Dim minuto As String
   Dim dp As String
hora = Mid$(ValHora, 1, 2)
minuto = Mid$(ValHora, 4, 2)
  dp = Mid$(ValHora, 3, 1)
If mod1.Validanúmero(hora) = False Or CInt(hora) < 0 Or CInt(hora) > 23 Then
MsgBox "Hora inválida!!! Tente por exemplo algo como " & _
  Format(Time, "hh:mm") & ".", vbCritical, "Dados inválidos!"
   Exit Function
    validaHora = False
     End If
If mod1.Validanúmero(minuto) = False Or CInt(minuto) < 0 Or CInt(minuto) > 59 Then
MsgBox "Hora inválida!!! Tente por exemplo algo como " & _
  Format(Time, "hh:mm") & ".", vbCritical, "Dados inválidos!"
   Exit Function
    validaHora = False
     End If
If dp <> ":" Then
MsgBox "Hora inválida!!! Tente por exemplo algo como " & _
  Format(Time, "hh:mm") & ".", vbCritical, "Dados inválidos!"
   Exit Function
    validaHora = False
     End If
validaHora = True
  
End Function

'use em conjunto
Function Validanúmero(strText As String) As Boolean
Validanúmero = CBool(IsNumeric(strText))
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página