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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Validar hora
Lêhh
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 01/10/2011 12:17 hs            
Ola gostaria de saber como é o código para validar horas no vb 6...
 
Desde já agradeço!
 
 
Emoções
 
 
   
ED - Claret
SÃO JOSE DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 23/10/2011 11:55 hs         
Explique melhor o que você quer......
   
ED - Claret
SÃO JOSE DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 23/10/2011 12:01 hs         
Achei isso ai aqui no forum em dicas... não testei mas deve funcionar......
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
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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