Data por Extenso

[Ted k' 126]

Este artigo server para iniciaintes e avançados!

 

Dificuldades de colocar a data por extenso?

 

Ex:

Quarta-feira 12 de setembro de 2007

Não tem nada de difícil, é simples o código é esse:

ASP

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

 

Vamos separar os códigos para facilitar o entendimento!

 

1º Bloco de Instrução:

ASP

UCase(Left(WeekDayName(WeekDay(Now)),1))

 

- WeekDayName pega o "Nome da Semana";

- WeekDay(Now) pega o valor numerico do "Nome da Semana" ficando assim : domingo(1), segunda-feira(2), etc...

 

Juntando os dois faz um parâmetro desse tipo

 

WeekDay(Now) vem o valor "4" que é quarta-feira

a resposta dentro do WeekDayName aparece assim:

WeekDayName(1) que é igual a quarta-feira (por extenso e letra minuscula)

 

- Left(WeekDayName(WeekDay(Now)),1), o "Left(INSTRUCAO,1)" ele vai pegar o primeiro caractere a instrução desejada que é a letra "q";

- UCase(Left(WeekDayName(WeekDay(Now)),1)) o "UCase()" vai transformar o caractere desejado em Maiúsculo, que no nosso caso é a letra "q", ficando assim:

 

UCase("q")

Resposta sai: "Q"

 

 

2º Bloco de Instrução:

ASP

Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1)

 

- Len(WeekDayName(WeekDay(Now))) o "Len()" está fazendo a função de "contador de caracteres", ele irá contar a quantidade de caracteres que tem na palavra "quarta-feira" ficando assim:

 

Len("quarta-feira")

Total: 12 caracteres

 

- Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) o "Right" e o oposto do "Left", ele tira o último caractere da palavra que é a letra "a" mais no nosso caso com o "Len" isso não irá acontecer. Se colocarmos o "quarta-feira" dentrodo "Right" olha o que acontecer:

 

Right("quarta-feira", 1)

Resposta: quarta-feir

 

Mais com o "Len" que o total deu 12 menos 1 que é para ele não cortar o nome todo fica assim

 

Right("quarta-feira", 12 - 1)

Resposta: uarta-feira

 

E pronto! Mais um assunto resolvido e o resto do código é só formatação de data

 

Day(Date), pega o valor do dia

MonthName(Month(Now)), o nome do mês

Year(Date), pega o ano atual

 

Juntando tudo fica:

ASP

<% Response.Write(UCase(Left(WeekDayName(WeekDay(Now)),1)) + Right(WeekDayName(WeekDay(Now)),Len(WeekDayName(WeekDay(Now))) - 1) &", "& Day(Date)&" de "&MonthName(Month(Now))&" de "&Year(Date)) %>

 

e fim de papo

Quarta-feira 12 de setembro de 2007

Abraços, qualquer coisa podem postar!!!

[jrcardozo 4]

grande professor tedk' vai ajudar muita gente, principalmente iniciantes e quem tem dificuldade em montar calendáriosvaleu

[desisto 0]

minha contibuicao

response.Write FormatDateTime(now(),1) & " as " & Right("0" & Hour(now()),2)

retorna:

domingo, 20 de abril de 2008

 

response.Write FormatDateTime(now(),1) & " as " & Right("0" & Hour(now()),2) & ":" & Right("0" & Minute(now()),2)

retorna

domingo, 20 de abril de 2008 as 06:09

bom pra sistema de cadastro que inclui data

[Ted k' 126]

bala man!!

 

bem mais simples ainda...!!!! show!

[desisto 0]

opa http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

lembro que quando minhas datas deram pau no servidor eu vasculhei metade do google pra achar as funcoes de data e hora pra conseguir uma que pudesse usar de forma simples

 

[]s

[Ted k' 126]

ahuahuahuah!!!

 

boa já me aconteceu a muito tempo isso!!!

[jrcardozo 4]

mais uma contribuição para simplificar

 

response.Write FormatDateTime(now(),1) & " as " & YEAR(now())

[Ted k' 126]

ai você me quebra amigo Jonathan (hauahua)!!

[dedindol 0]

caraca....

 

Os feras simplificando a vida de nós iniciantes...hehe...

 

valeu professores....acabei de usar o código de data e me quebrou um galhão.....

 

espero logo logo poder contribuir assim com o forum...rsrrs

 

grande abraço...

[Mário Monteiro 179]

response.Write FormatDateTime(now(),1) & " as " & YEAR(now())

John não entendi este final

 

A saida disso para agora nao seria

 

quarta-feira, 28 de maio de 2008 as 2008

Ou nao?