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

Problema Com Horas


Guinho.TI

Pergunta

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 para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 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...