formatar data dessa forma 01/05/2005

[Mr Crowley 0]

formatar data dessa forma 01/05/2005

aparecendo os zeros qdo for apenas um numero

 

ele me mostra a data assim 1/5/2005, e quero que apareça assim 01/05/2005

como faco isso?

Fiz uma funcao pra isso, mais existe um outro meio?

mudei o data do sistema do servidor para 01/02/2005 e coloquei o

SESSION.LCID = 1046 nas paginas, e msm assim nao funciono!

 

tem como fazer isso que eu to falando?

faloe e ate mais...

 

Segue a funcao da data

ASP

[*]

 

[*]function dat_zero(n)

 

[*] if isdate(n) = true then

 

[*] dim dia

 

[*] dim mes 

 

[*] dim ano

 

[*] n = split(n,"/")

 

[*] dia = n(0)

 

[*] mes = n(1)

 

[*] ano = n(2)

 

[*] dia = 0 & dia

 

[*] mes = 0 & mes

 

[*] dia = right(dia,2)

 

[*] mes = right(mes,2)

 

[*] n = dia & "/" & mes & "/" & ano

 

[*] end if

 

[*] response.Write(n)

 

[*]end function

 

[*]

[hthsup 0]

Coloque essa função nas rotinas:Function FData(NumData , TipoData ) If (Trim(NumData) = "") Then Exit Function If (Trim(TipoData) = "") Then Exit Function Dim Dia,Mes,Ano,Quant,Data Quant = Len(Trim(NumData)) If IsNumeric((NumData)) Then Dia = Right(Trim(NumData), 2) Mes = Mid(Trim(NumData), 5, 2) Ano = Left(Trim(NumData), 4) Else If Quant = 10 Then Dia = Left(Trim(NumData), 2) Mes = Mid(Trim(NumData), 4, 2) Ano = Right(Trim(NumData), 4) Else Data = Trim(NumData) Dia = FormatNumber(Day(Data), 0) Mes = FormatNumber(Month(Data), 0) Ano = Year(Data) End If End If Select Case TipoData Case 0 FData = Dia & "/" & Mes & "/" & Ano Case 1 FData = Ano & Mes & Dia Case 2 FData = Ano & "/" & Mes & "/" & Dia Case 3 FData = Ano & "/" & Mes Case 4 FData = Mes & "/" & Ano Case Else Exit Function End Select End Function

[Mário Monteiro 179]

tente issodata = RIGHT("0" & DAY(data),2) & "/" & RIGHT("0" & MONTH(data),2) & "/" & YEAR(data)

[Wallcrawler 0]

Ou mesmo:Function Data_Br(Wdata ) Data_br = mid((100+day(wdata)),2,2) & "/" & mid((100+month(wdata)),2,2) & "/" & year(wdata)end functionE na data que você quer formatar:data_br(variaveldata)Wallcrawler

[ska_ska 0]

ou então... não tão usual mas funcional..eheheh

 

ASP

[*]

 

[*]SESSION.LCID = 1057

 

[*]data = "1/5/2006"

 

[*]DATA = FormatDateTime(data,2)

 

[*]

;)

[explore 3]

ou esta que uso sempre!

 

ASP

[*]Function DataInvertida(Data)

 

[*] dia = day(Data)

 

[*] mes = month(Data)

 

[*] ano = year(Data)

 

[*] DataInvertida = dia & " / " & mes & " / " & ano

 

[*]End Function

 

[*]

 

[*]

 

[*]DataTeste = 24/04/2005

 

[*]

 

[*]DataNova = DataInvertida(Now)

[meirelles 0]

sei não mas aho q isso resolve

 

ASP

[*]

 

[*]Function DataInvertida(Data)

 

[*]

 

[*] dia = day(Data)

 

[*]

 

[*] mes = month(Data)

 

[*]

 

[*] ano = year(Data)

 

[*]

 

[*] if mes <= 9 then

 

[*] mes = "0" & mes

 

[*] else

 

[*] end if

 

[*]

 

[*] if dia <= 9 then

 

[*] dia = "0" & dia

 

[*] else

 

[*] end if

 

[*]

 

[*] DataInvertida = dia & " / " & mes & " / " & ano

 

[*]

 

[*]End Function

 

[*]

 

[*]DataNova = DataInvertida(Now)

 

[*]

 

[*]response.write datanova

 

[*]

 

tenta ae

 

pra mim é simples assim, talvez resolva, valew manow!

[explore 3]

melhorada no Codigo heheheheh!!!!!!!!!

[Mário Monteiro 179]

bem se for apenas pra colocar os zeros como eu entendi que seria a pergunta não precisa disso tudo não basta uma linah de codigo...

[meirelles 0]

qual linha...

[Mário Monteiro 179]

QUAL LINHA...

essa que postei la em cima

 

data = RIGHT("0" & DAY(data),2) & "/" & RIGHT("0" & MONTH(data),2) & "/" & YEAR(data)

[meirelles 0]

QUAL LINHA...

<{POST_SNAPBACK}>

essa que postei la em cima

 

data = RIGHT("0" & DAY(data),2) & "/" & RIGHT("0" & MONTH(data),2) & "/" & YEAR(data)

<{POST_SNAPBACK}>

<{POST_SNAPBACK}>

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

 

vou testar em casa, deve ser bem mais pratico mesmo mas uma duvida pra que serve o numero 2 depois de month(data),2 . valew...

[Mário Monteiro 179]

vai pegar apenas dois caracteresex:se for dia 1 vai concatenar o 0 e pegar os dois ultimos caracteres01 pega 01e assim acontece pra todos ate 9se for dia 10 vai concatenar o 0 e pegar os dois ultimos caracteres010 pega 10e assim acontece pra todos os dias que tem dois caractereso mesmo acontece pro mes

[explore 3]

Esse merece os parabens!!!!!! hhehehehehe

[Mário Monteiro 179]

Esse merece os parabens!!!!!! hhehehehehe

mas não fui eu que bolei não...

 

foi outro membro aqui do forum, só não lembro quem foi...

 

ai gravei na hora...

[PhoEniXFirE 0]

vai pegar apenas dois caracteres

 

ex:

 

se for dia 1 vai concatenar o 0 e pegar os dois ultimos caracteres

 

01 pega 01

 

e assim acontece pra todos ate 9

 

se for dia 10 vai concatenar o 0 e pegar os dois ultimos caracteres

 

010 pega 10

 

e assim acontece pra todos os dias que tem dois caracteres

 

o mesmo acontece pro mes

<{POST_SNAPBACK}>

Bem eu queria q a data aparece assim: 02/08/05 então fiz o você falou Mario

ASP

[*]<% Response.Write RIGHT("0" & DAY(now),2) & "/" & RIGHT("0" & MONTH(now),2) & "/" & RIGHT(YEAR(now),2) %>

Ficou beleza.

 

Mas agora, estou preparando a busca, até coloquei o modo q o internauta deveria colocar a data (dd/mm/aa), só q como tem uns internautas mais desatentos podem colocar por ex 2/8/2005 como posso fazer para ele enviar 02/08/05 para buscar, pq no banco de dados n está como data e sim TEXTO.

 

Esse lance do Ska Ska poderia até ser a resposta se ano n fosse o ano com 4 números, né? http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[Mário Monteiro 179]

faz a mesma coisa antes de jogar no SQL

[PhoEniXFirE 0]

faz a mesma coisa antes de jogar no SQL

<{POST_SNAPBACK}>

N cara. P jogar no SQL estou utilizando aquele código q modifiquei, ele fica dentro do value e o administrador apenas modifica se quiser, o q quero saber eh como faço p qndo o internauta for fazer uma busca e colocar por ex 2/8/2005 q n eh o mesmo q 02/08/05, busque 02/08/05. E como no Access está em texto, o resultado vai dar como não encoontrado. Entendeu? :mellow:

[Mário Monteiro 179]

bem tiozinho, o cara digita 2/8/2005 certo??você vai submeter isso certo??então na outra pagina quando você submeter você pega a data e converte do mesmo jeito antes de usar na SQL

[PhoEniXFirE 0]

bem tiozinho, o cara digita 2/8/2005 certo?? você vai submeter isso certo?? então na outra pagina quando você submeter você pega a data e converte do mesmo jeito antes de usar na SQL

<_< Como vou fazer a conversão de um texto assim ? Não é mesmo caso da data.