Data por Extenso

[Ted k']

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:

<% 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:

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:

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:

<% 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!!!