18 replies to this topic

[crazybaby]

tava sem nada pra fazer aí me surgiu a necessidade de criar um script q mostre o dia da semana q é hj por exemplo entaum taí o codigo pra qm quiser

<%
diahoje = weekday(now)
if diahoje = 1 then
response.write("Domingo")
elseif diahoje = 2 then
response.Write("Segunda")
elseif diahoje = 3 then
response.write("Terça")
elseif diahoje = 4 then
response.Write("Quarta")
elseif diahoje = 5 then
response.Write("Quinta")
elseif diahoje = 6 then
response.Write("Sexta")
elseif diahoje = 7 then
response.Write("Sábado")
End if
%>

[phmda]

ae valew..mas eu conheço outras formas e acho que até mais simples do que esse seu exemplo...

[phmda]

é isso mesmo...
da no mesmo naum é???

[phmda]

naum mas vc da um response.write no dia... e pronto...

[phmda]

foi mal me expressei um ppouco confuso.quis dizer isso....

<% 
	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 é <% response.write diasemana (weekday(date)) %>

entendeu....

[knoxville]

tem tambem o CASE e usando o WeekDayName() é só voce por o Session.LCID = 1046 que ele retornará o dia em português!

[knoxville]

olhae o de CASE:

semana = Weekday(Now)
Select case semana
Case "1"
semana = "Domingo"
Case "2"
semana = "Segunda"
Case "3"
semana = "Terça"
Case "4"
semana = "Quarta"
Case "5"
semana = "Quinta"
Case "6"
semana = "Sexta"
Case "7"
semana = "Sábado"
End Select

e o do LCID nao funciona nao... weekdayname, pelo jeito isso nao existe! mas tem essa mini-rotina q eu fiz tb... q é legal!

<%
session.LCID = 1046
data = FormatDateTime(Now(), 1)
data = Ucase(Left(data, 1)) & Lcase(Mid(data, 2))
Response.Write data
%>

Edição feita por: knoxville, 25/09/2003, 15:28.

[knoxville]

hehe

[lince-dnm]

E se eu quiser colocar o dia, mes e ano tbm?? Como q eu posso fazer pra fikr tipo assim: Hoje e Domingo, 26 de outubro de 2003??