Dia da semana

[pfr 0]

Pessoal eu tenho a data nesse formato 12/09/2003 e quero extrair dela o dia da semana assim Sexta-Feira como eu faço????

[Salgado 4]

Esse código monta uma linha contendo o dia da semana, Dia de Mês de Ano.

<% ' Ajustando o dia da Semana
if weekday(Now)= vbSaturday then DiaSem = "Sábado" end if
if weekday(Now)= vbMonday then DiaSem = "Segunda-Feira" end if
if weekday(Now)= vbThursday then DiaSem = "Terça-Feira" end if
if weekday(Now)= vbwednesday then DiaSem = "Quarta-Feira" end if
if weekday(Now)= vbTuesday then DiaSem = "Quinta-Feira" end if
if weekday(Now)= vbFriday then DiaSem = "Sexta-Feira" end if
if weekday(Now)= vbSunday then DiaSem = "Domingo" end if
' Ajustando o Mês
if month(Now)= 1 then Mes= "Janeiro" end if
if month(Now)= 2 then Mes= "Fevereiro" end if
if month(Now)= 3 then Mes= "Março" end if
if month(Now)= 4 then Mes= "Abril" end if
if month(Now)= 5 then Mes= "Maio" end if
if month(Now)= 6 then Mes= "Junho" end if
if month(Now)= 7 then Mes= "Julho" end if
if month(Now)= 8 then Mes= "Agosto" end if
if month(Now)= 9 then Mes= "Setembro" end if
if month(Now)= 10 then Mes= "Outubro" end if
if month(Now)= 11 then Mes= "Novembro" end if
if month(Now)= 12 then Mes= "Dezembro" end if%>
<%response.write DiaSem&", "&day(now)&" de "&Mes&" de "&year(now)&".%>

[Bins 0]

Bom, seguindo a idéia de nosso colega Salgado, a função WeekDay puxa o número do dia da semana, sendo que o default é o número 1 para o domingo, 2 para segunda.... até chegar o 7, que é para o sábado.Com o valor desta função em mãos, poderia ser feito um Select Case, algo do tipo (espero nao errar a sintaxe)Select case numero_diaCase 1dia_da_semana="Domingo"Case 2dia_da_semana="Segunda"(....)Case 7dia_da_semana="Sábado"End Select

[Marhault 1]

Eu acho bem mais fácil usar assim:

WeekdayName(Weekday(Date))

Valeu???

[Salgado 4]

Eu acho bem mais fácil usar assim:

WeekdayName(Weekday(Date))

Valeu???

Nem sempre vem em português!

[1sys 0]

Eu ja gosto de usar este formato:

 

<%Session.LCID = 1046%> para deixar a data em portugues

 

<% = FormatDateTime(Date, 1) %>Escreve a data