Jump to content
Fórum Script Brasil
  • 0

[resolvido] Tratamento De Erros Para Horas


Guinho.TI
 Share

Question

É 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 to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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!

Edited by andreia_sp
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...