Jump to content
Fórum Script Brasil
  • 0

Problema Com Horas


Guinho.TI
 Share

Question

Num determindado formulário inseri um textbox onde o usuário pode digitar uma hora no formato hh:mm:ss.

Crie um Case que, após a leitura da quantidade de caracteres no TEXTBOX, ele completa o campo, para que a consulta SQL possa aceitar o seu valor.

***********************

Dim cont
Dim hFormat      

cont = Len(PHora)

Select case  cont

case 8 ' se o campo foir preenchido corretamente, ou seja 00:00:00
hFormat = PHora


case 5 ' SE OS SEGUNDOS NÃO FOREM PREENCHIDOS, INSERE ":00"
hFormat = PHora&":00"


case 2 'SE OS MINUTOS E SEGUNDOS NÃO FOREM PREENCHIDOS, INSERE ":00:00"
hFormat = PHora&":00:00"

End Select

***********************

Ocorre que, o case 8 e o Case 5 funcionam. alguém saberia me dizer porque o Case 2 não funciona?????

Link to comment
Share on other sites

4 answers to this question

Recommended Posts

  • 0

Esta aplicação roda em 3 páginas:

1 - Página da TextBox

2 - Página com as Functions

3 - Página com os resultados.

Tentei colocar o response.write na 2 e na 3 e não apareceu nada. Por via das dúvidas, dei um Trim antes do Len e continua dando no mesmo. O erro que aparece é o seguinte:

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Esstou tentando mais algumas soluções e aceito sugestões.

desde já agradecido!

Link to comment
Share on other sites

  • 0

Como o código é muito grande, vou inserir somente as partes que utilizam esta parte

1. Página do Form:

<FORM name=""JobsMF"" id=""JobsMF"" action=""Result.asp"" method=post>

INTERVALO DE HORAS

entre :

<input class=""textarea"" type=""text"" name=""H_INI"" id=""H_INI"" size=6 value="&StrValue("H_INI",4)&" >

e:

<input class=""textarea"" type=""text"" name=""H_FIM"" id=""H_FIM"" size=6 value="&StrValue("H_FIM",5)&" >

IfNull("H_INI")

IfNull("H_FIM")

2. Pagina de Functions:

* Cria uma session para os camos textbox não nulos.

Public Sub IfNull(Nome)

If (Request.Form(""&Nome&"") <> "") Then

Session(""&Nome&"") = Trim(Request.Form(""&Nome&""))

Else

Session.Contents.Remove(""&Nome&"")

End If

End Sub

* Formata o campo, criando uma função de horas

Public Function StrValue(nSession,op)

Select case op

case 4

StrValue = THora(CStr(Trim(Session(nSession))),1)

case 5

StrValue = THora(CStr(Trim(Session(nSession))),2)

End Select

End Function

* Função que trabalha com as horas, inserindo os campos não digitados

(lembrando que, somente o case 2 não funciona)

Public Function THora(PHora,opcao)

Dim aux

Dim conth

Dim temp

Dim hora

Dim hFormat

If (PHora <> "") Then

conth = Len(PHora)

aux = Split(PHora,":",-1)

If (aux(0) = "24") then

hora = "00"

End If

Select case conth

case 8

If (aux(0) = "24") then

hFormat = "00:"&aux(1)&":"&aux(2)

Else

hFormat = PHora

End If

case 5

If (aux(0) = "24") then

hFormat = "00:"&aux(1)&":00"

Else

hFormat = PHora&":00"

End If

case 2

If (aux(0) = "24") then

hFormat = "00:00:00"

Else

hFormat = PHora&":00:00"

End If

End Select

Else

If (opcao = 1) Then

hFormat = ""

Else

hFormat = "23:59:59.997"

End If

End If

THora = hFormat

* Query (este é o trecho que usa esta parte)

.... WHERE data_hora BETWEEN '"&Session("Data_Inicio")&" "&Session("H_INI")&"' AND '"&Session("Data_fim")&" "&Session("H_FIM")&"'"

** Não fui eu quem desenvolvi esta parte da aplicação, por isto estou tendo estes problemas. Uma vez, eu tentei criar uma session para receber o valor de THORA e enviar este valor para Query e não consegui. Pode ser este o problema...

desde já agradecido

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.4k
×
×
  • Create New...