Duvida Com Datas

[adriano182]

Olá pessoal!

Estou com o seguinte problema, sei que com a linha: response.Write "a data é:" & date() é possivel mostrar a data atual na tela, mas como que eu posso fazer para mostrar o dia da semana tmb??

Obrigado!

www.cubbos.com

www.cubbos.com/cubbos2004

[pgmador]

Cara.. segue a função aí já no esquema.

Gde abraço

<%
If Month(date) = 1 then
Mes = "janeiro"
Else
If Month(date) = 2 then
Mes = "fevereiro"
Else
If Month(date) = 3 then
Mes = "março"
Else
If Month(date) = 4 then
Mes = "abril"
Else
If Month(date) = 5 then
Mes = "maio"
Else
If Month(date) = 6 then
Mes = "junho"
Else
If Month(date) = 7 then
Mes = "julho"
Else
If Month(date) = 8 then
Mes = "agosto"
Else
If Month(date) = 9 then
Mes = "setembro"
Else
If Month(date) = 10 then
Mes = "outubro"
Else
If Month(date) = 11 then
Mes = "novembro"
Else
If Month(date) = 12 then
Mes = "dezembro"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If


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

DataExtenso = DiaSemana & ", " & day(date) & " de " & Mes & " de " & year(date)

%> 
<% = DataExtenso%>

[Victor]

Você pode usar uma matriz..Olhe esse codigo abaixo:

<%
dim meses(12)

meses(1)="Janeiro"
meses(2)="Fevereiro"
meses(3)="Março"
meses(4)="Abril"
meses(5)="Maio"
meses(6)="Junho"
meses(7)="Julho"
meses(8)="Agosto"
meses(9)="Setembro"
meses(10)="Outubro"
meses(11)="Novembro"
meses(12)="dezembro"

dim semana(7)

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


sem = weekday(date)
dia = day(date)
mes = month(date)
ano = year(date)

function diadomes(d)
nc = len(dia)
if nc < 2 then
diadomes = 0&dia
else
diadomes = dia
end if
end function

data = semana(sem)&", "&diadomes(dia)&" de "&meses(mes)&" de "&ano
%>
<hr>
<font color="333333" size=-2 face="verdana"><b><%=data%></b></font>

Ele vai aparecer assim: EX: Segunda-Feira, 17 de dezembro de 2003

Se tiver mais alguma dúvida é so gritar!!!

[]'s

Victor

[Bicicleta]

Só uma dica amigo pgmador

Ao invés de fazer assim:

If [condicao] Then

  ...

Else

If [condicao] Then

...

Else

If [condicao] Then

  ...

End If

End If

End If

Faça assim:

If [condicao] Then

  ...

ElseIf [condicao] Then

...

ElseIf [condicao] Then

  ...

End If

Além de mais legível e menos linhas, executa mais rápido!

[]s!