Formatar datas para salvar no banco ou apresentar na tela

[Ted k' 126]

Por ver que os usuários está procurando muito a respeito de datas, decidir pegar uma fução que já está no meu blog, e adicionar aqui no Fórum

 

Escolha a melhor função (melhor dizendo, a adequada) para seu banco de dados:

 

Formato: aaaa-mm-dd

<%
Function ConverterDataBanco(ConDataBanco)
	ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
	ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: dd-mm-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
	ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
	ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm-dd-aaaa

<%
Function ConverterDataBanco(ConDataBanco)
	ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
	ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Formato: mm/dd/aaaa

<%
Function ConverterDataBanco(ConDataBanco)
	ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
	ConverterDataBanco = ConDataBanco
End Function

Response.Write(ConverterDataBanco(Date()))
%>

Uma dica bem simples, nada de complicado!!

[hargon 64]

Boa dica jovem. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Jow Xavier 0]

Muito bom Ted'k ... Inclusive usei este mesmo script Formato: aaaa-mm-dd ... Em uma dúvida sua bem antiga, aki no forúm ahuahuhauhahu abraçosssss

[Ted k' 126]

Boa, é uma facilidade grande essas funções simples!!!

[zanelati2002 0]

mais no caso esta parte não muda nda

 

corpo = corpo & " <p>Esta mensagem foi enviada no dia <b>" &date&"</b> as <b>" &time()&"</b></p>" & vbcrlf

 

 

pois a data que pego não é do banco

[ponto&vetor 0]

Entonci você coloca assim:

 

dim dia, mes, ano
dia = day(date)
mes = month(date)
ano = year(date)
 'e usa como for necessário

dim dataOK
dataOK = dia&"/"&mes&"/"&ano ' que é o formato mais usado aqui no brasil varonil... hehe

response.write(dataOK)

mais no caso esta parte não muda nda

 

corpo = corpo & " <p>Esta mensagem foi enviada no dia <b>" &date&"</b> as <b>" &time()&"</b></p>" & vbcrlf

 

 

pois a data que pego não é do banco

[Ted k' 126]

zanelati2002, funciona do mesmo jeito, é só pegar qualquer função e adaptar, assim:

 

<%
Function ConverterData(ConData)
	ConData = Right("0"&Day(ConData),2) &"/"& Right("0"&Month(ConData),2) &"/"& Year(ConData)
	ConverterData = ConData
End Function

%>

corpo = corpo & " <p>Esta mensagem foi enviada no dia <b>" &ConverterData(date)&"</b> as <b>" &time()&"</b></p>" & vbcrlf

a gora se colocar a função DATE() pura, tem que ficar licado no Session.LCID para ver se está no formato brasileiro!!

[empirerock 0]

Puts, eu queria converter a data que vem de um form "1/9/2008" para "2008/9/1"

Pesquisei, ví várias funções más não consegui implementar isso no meu código

 

 

DataInicial = Request.Form("data_inicial")

 

DataInicial = Replace(DataInicial = "dd/mm/aaaa", "aaaa/mm/dd")

 

 

Não consigo acertar esse replace

 

Pode me ajudar com isso?

[Jow Xavier 0]

Tenta ai ...

 

DataInicial = Request.Form("data_inicial")

Data = DataInicial
Data = Year(Cdate(Data)) & "-" & Right("0"&Month(Cdate(Data)),2) & "-" & Right("0"&Day(Cdate(Data)),2)

response.write Data

... A saida será aaaa-mm-dd

[Mário Monteiro 179]

tem que montar a data com as suas partes como foi mostrado

[empirerock 0]

Obrigado Jow e Mário por responderem.

 

Deu certo agora. Ficou assim o código

 

DataInicial = Request.Form("data_inicial")

DataI = DataInicial
DataI = Year(Cdate(DataI)) & "-" & Right("0"&Month(Cdate(DataI)),2) & "-" & Right("0"&Day(Cdate(DataI)),2)


DataFinal = Request.Form("data_final")

DataF = DataFinal
DataF = Year(Cdate(DataF)) & "-" & Right("0"&Month(Cdate(DataF)),2) & "-" & Right("0"&Day(Cdate(DataF)),2)



strSQL1 = "SELECT COUNT(tiporm) as total1 FROM rm WHERE datacad BETWEEN '" &DataI& "' AND '" &DataF& "' and tiporm = 'RECLAMAÇÃO'"

[Ted k' 126]

boa e para não repetir essa linha mais vezes:

Year(Cdate(DataI)) & "-" & Right("0"&Month(Cdate(DataI)),2) & "-" & Right("0"&Day(Cdate(DataI)),2)

poderia colocar ela em uma função, como eu cito no exemplo do post

[Mário Monteiro 179]

Muito bom

[Leonardo Rocha 0]

Amigo,

 

É o seguinte, tenho o campo abaixo que irá gravar no banco de dados...

Como faço para utilizar o método que você criou, no caso, quero informar a data 01/12/2008 e que seja gravado no banco desta mesma forma... Pois ela está sendo gravada 12/01/2008. Sei que o problema é no servidor, mas infelizmente não posso alterá-lo... tem muitos outros bancos de dados que utilizam ele. Bom, a princípio o banco que estou utilizando é em ACCESS e todos os outros registros que já foram criados estão com o formato brasileiro dd/mm/yyyy, só que ao criar o código em asp para utilizar o mesmo banco e dar continuidade aos cadastros, as datas estão sendo gravadas no formato mm/dd/yyyy.

 

Por favor se alguém tiver alguma solução que postem o mais rápido possível, pois estou com esse problema já tem um bom tempo.

 

Agradeço a todos.

 

 

<td>

<span align="left"><input type="text" name="txtDataVencimentoInc" value="<%=data_vencimento%>" style="width: 93px; float: left; font-size: 9px" maxlength="10" onKeyUp="this.value=formateadata(this.value);"></span>

</td>

 

Leonardo Rocha