[Resolvido] Select case

[Denison Lopes 0]

Olá, pessoal!

Estou com uma dúvida.

Eis o código:

 

%>
hr = hour(now)
mn = minute(now)
Select case Request(hr)
case hr < 12
Response.Write"Bom dia!"
case hr < 17
Response.write"Boa tarde!"
case else
Response.write"Boa noite!"
end select
Response.Write("<br><br>" & hr & ":"&  mn)
%>

Ele simplesmente dá "Boa noite!" de manhã, "Bom dia!" à tarde e à noite.

 

Existe algum erro ou há alguma explicação?

 

Valeu!

[Patrique 0]

Veja uma function que eu fiz

 

Function Saudacao()
    Select Case Hour(now())
        Case 18,19,20,21,22,23,24,0,1,2,3,4,5 Saudacao = "Boa Noite!"
        Case 6,7,8,9,10,11 Saudacao = "Bom Dia!"
        Case 12,13,14,15,16,17 Saudacao = "Boa Tarde!"
    End Select
End Function

Para chamar use

 

Response.Write Saudacao()

[]'s

[Tiago Thiesen 0]

Ou talvez tente utilizar IF invés de CASE

 

%>

hr = hour(now)

If hr < 12 Then

Response.Write"Bom dia!"

Else If hr < 17 and hr > 12 Then

Response.write"Boa tarde!"

Else

Response.write"Boa noite!"

End If

Response.Write("<br><br>" & hour(now) & ":"& minute(now))

%>

[Patrique 0]

Outra com If

 

<%
if hour(now)<12 then
   saudacao = "Bom dia "
Elseif hour(now)<=18 then
   saudacao = "Boa tarde "
else
   saudacao = "Boa noite "
End If

Response.Write saudacao
%>

[Mário Monteiro 179]

So explicando seu erro lá em cima voce colocou a hora em hr e depois usou Request(hr)

 

hr = hour(now)

Select case Request(hr)

[Denison Lopes 0]

Muito obrigado a todos!

Mário, você tem razão! Este foi o meu erro fatal. Nunca enxergaria isso!

 

Valeu!

[Mário Monteiro 179]

Bom que resolveu