5 replies to this topic

[biscaro]

Não sei onde estou errando nesse código, já tinha feito ele a muito tempo atras, mas como não exercitei acabei esquecendo.

<%
dim diasemana(7)

diasemana(1) = "Domingo"
diasemana(2) = "Segunda-feira"
diasemana(3) = "Terça-feira"
diasemana(4) = "Quarta-feira"
diasemana(5) = "Quinta-feira"
diasemana(6) = "Sexta-feira"
diasemana(7) = "Sábado"

if  weekday(date) = 1 then
diasemana = "Domingo"
end if
if  weekday(date) = 2 then
diasemana = "Segunda-feira"
end if
if  weekday(date) = 3 then
diasemana = "Terça-feira"
end if
if  weekday(date) = 4 then
diasemana = "Quarta-feira"
end if
if  weekday(date) = 5 then
diasemana = "Quinta-feira"
end if
if  weekday(date) = 6 then
diasemana = "Sexta-feira"
end if
if  weekday(date) = 7 then
diasemana = "Sábado"
end if

%>
hoje é <%= diasemana %>

[viniciusjau]

qual erro está dando ?


num sei se ele associa o 1 com segunda... 2 com terça..

[biscaro]

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis
/pasta/Untitled-2.asp, line 24


e a linha 24 é:
diasemana = "Segunda-feira"

[pchardnet]

Usa só isso

<%
Response.write WeekDay(now())
%>

[felipecm]

Não sei onde estou errando nesse código, já tinha feito ele a muito tempo atras, mas como não exercitei acabei esquecendo.

<%
dim diasemana(7)

diasemana(1) = "Domingo"
diasemana(2) = "Segunda-feira"
diasemana(3) = "Terça-feira"
diasemana(4) = "Quarta-feira"
diasemana(5) = "Quinta-feira"
diasemana(6) = "Sexta-feira"
diasemana(7) = "Sábado"

if  weekday(date) = 1 then
diasemana = "Domingo"
end if
if  weekday(date) = 2 then
diasemana = "Segunda-feira"
end if
if  weekday(date) = 3 then
diasemana = "Terça-feira"
end if
if  weekday(date) = 4 then
diasemana = "Quarta-feira"
end if
if  weekday(date) = 5 then
diasemana = "Quinta-feira"
end if
if  weekday(date) = 6 then
diasemana = "Sexta-feira"
end if
if  weekday(date) = 7 then
diasemana = "Sábado"
end if

%>
hoje é <%= diasemana %>

Pow tio.. vc fez um coodigo legal.. mas porem . nem seria necessario esse bando de IFs.. Olha só..:

<%
dim diasemana(7)

diasemana(1) = "Domingo"
diasemana(2) = "Segunda-feira"
diasemana(3) = "Terça-feira"
diasemana(4) = "Quarta-feira"
diasemana(5) = "Quinta-feira"
diasemana(6) = "Sexta-feira"
diasemana(7) = "Sábado"

%>
hoje é <%= diasemana(WeekDay(date)) %>

O erro de tipo incompativel acusou pois vc atribuiu que diasemana era uma string.. sendo q vc declarou ela como Array.

[biscaro]

Putz!

Que mancada! Eu acabei fazendo dois scripts num!
Eles até estavão certos, só apaguei um deles.

O felipecm está certo quanto ao código.

<%
dim diasemana(7)

diasemana(1) = "Domingo"
diasemana(2) = "Segunda-feira"
diasemana(3) = "Terça-feira"
diasemana(4) = "Quarta-feira"
diasemana(5) = "Quinta-feira"
diasemana(6) = "Sexta-feira"
diasemana(7) = "Sábado"
%>
hoje é <% = diasemana (weekday(date)) %>

E o outro também funciona só que tem mais linhas:

<%
dim diasemana

if  weekday(date) = 1 then
diasemana = "Domingo"
end if
if  weekday(date) = 2 then
diasemana = "Segunda-feira"
end if
if  weekday(date) = 3 then
diasemana = "Terça-feira"
end if
if  weekday(date) = 4 then
diasemana = "Quarta-feira"
end if
if  weekday(date) = 5 then
diasemana = "Quinta-feira"
end if
if  weekday(date) = 6 then
diasemana = "Sexta-feira"
end if
if  weekday(date) = 7 then
diasemana = "Sábado"
end if

%>
hoje é <%= diasemana %>

Valeu moçada!