Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Tratamento De Erros Para Horas


Guinho.TI

Pergunta

É o seguinte:

Possuo um formulário de consulta onde o usuário escolhe seus parâmetros de busca e as realiza.

Dentre estes campos, eu possuo um campo HORAS, onde o usuário pode digitar o intervalo de horas desejado na consulta. Ocorre que, eu estava tentando criar alguns tratamentos de erros que caso o usuário digitasse algum valor inválido, por exemplo: 25:59, exibiria uma mensagem solicitando que ele retornasse a página e corrigisse o erro. Executei a mesma consukta em dois Servidores diferentes, não sei porque em um funciona e no outro não... Analisem!

Session("hora") = request.form("hora")

If (Session("hora") <> "") Then

Dim arr_hi,h_ini

h_ini = CStr(Trim(Session("H_INI")))

arr_hi = Split(h_ini,":",-1,1)

If (arr_hi(0) > "24") or (arr_hi(1) > "59") or (arr_hi(2) > "59.997") Then

exibe = "numeros"

'ao invés de exibir a tabela, ou q mensagem que não há registros

' exibe uma mensagem solicitando a alterar as horas

End If

End If

Ao invés de exibir a minha mensagem, o navegador exibe

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

A linha eque ele exibe o erro corresponde a da conexão:

iRS.Open SQLStmt, oConn, 3, 1

Gostaria que vocês me ajudassem se possível

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

fiz um teste aqui e funfou de boa

só adaptar ae e fazer os testes

data = Now()
Hora = Split(data," ")
h_ini = Hora(1)
arr_hi = Split(h_ini,":")
If (arr_hi(0) > "23") or (arr_hi(1) > "59") or (arr_hi(2) > "59") Then
    Response.Write("Data inválida " & h_ini)
Else
    Response.Write("Data válida " & h_ini)
End If

Link para o comentário
Compartilhar em outros sites

  • 0

Consegui resolver! da forma mais "boba" possível.

Depois de fazer vários testes, inclusive o que o nosso amigo indicou, inseri um ON ERROR RESUME NEXT antes da conexão com o Banco de Dados, que era a linha que indicava erro. Desta forma, as mensagens de erro voltaram a ser exibidas como eu havia feito!

valeww pela ajuda!

Editado por andreia_sp
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...