Função : Formatar datas para salvar no banco : MySQL / ACCESS / SQL Server / Oracle / Etc…

Agência OFF, desenvolvimento de soluções web para as Agências Digitais

Escolha a melhor função para seu banco de dados:

Formato: aaaa-mm-dd

<%
Function ConvertDataBanco(ConDataBanco)
	ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
	ConvertDataBanco = ConDataBanco
End Function
Response.Write(ConvertDataBanco(Date()))
%>

Formato: dd-mm-aaaa

<%
Function ConvertDataBanco(ConDataBanco)
	ConDataBanco = Right("0"&Day(ConDataBanco),2) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Year(ConDataBanco)
	ConvertDataBanco = ConDataBanco
End Function
Response.Write(ConvertDataBanco(Date()))
%>

Formato: mm-dd-aaaa

<%
Function ConvertDataBanco(ConDataBanco)
	ConDataBanco = Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2) &"-"& Year(ConDataBanco)
	ConvertDataBanco = ConDataBanco
End Function
Response.Write(ConvertDataBanco(Date()))
%>

Formato: mm/dd/aaaa

<%
Function ConvertDataBanco(ConDataBanco)
	ConDataBanco = Right("0"&Month(ConDataBanco),2) &"/"& Right("0"&Day(ConDataBanco),2) &"/"& Year(ConDataBanco)
	ConvertDataBanco = ConDataBanco
End Function
Response.Write(ConvertDataBanco(Date()))
%>

Uma dica bem simples, nada de complicado!!

Dica: Acesse também http://www.webly.com.br

Agência OFF, desenvolvimento de soluções web para as Agências Digitais


Tags:

9 Respostas para Função : Formatar datas para salvar no banco : MySQL / ACCESS / SQL Server / Oracle / Etc…

  1. E aí Ted! Blz cara?
    Poderia me explicar uma coisita:
    Na função que você fez eu adicionei o Time() pra gravar no banquinho o horário também.

    Daí eu gravei no Meu SQL corretamente a data e hora, e chequei que o registro gravado estava no formatinhozinho aaaa-mm-dd hh:mm:ss

    Entretanto, ao chamar esse dado do banquinho dá um erro, pois a data ele pega certo, mas o horário ele não pega o que está no banquinho e sim o horário atual.

    Tem como eu resolver esse fato?

    Código utilizado:
    mySQL = “SELECT * FROM tabela_dados WHERE id = ” & id
    call var(mySQL, rsInfo)
    myDataInfo = rsInfo(“data”)

  2. Você pode resolver assim, na hora de chamar vc faz as duas funções ao mesmo tempo, aqui:

    < %
    Function ConverterDataHora(ConDataHora)
    ConDataHora = Right("0"&Month(ConDataHora),2) &"/"& Right("0"&Day(ConDataHora),2) &":"& Year(ConDataHora)&" "&Right("0"&Hour(ConDataHora),2) &":"& Right("0"&Minute(ConDataHora),2) &":"& Right("0"&Second(ConDataHora),2)
    ConverterDataHora = ConDataHora
    End Function

    Dim DataHora : DataHora = "2007-03-15 09:01:59"
    Response.Write(ConverterDataHora(DataHora))
    %>

  3. Fala Ted,
    Não entendi como fazer pra essa função chamar o campo “data” do banco, pode me dar um exemplo, pq aqui só dá erro de sintaxe. Fiz assim:

  4. Opa amigão, se liga ai:
    Coisa simples:

    no lugar do Date()
    Response.Write(ConvertDataBanco(Date()))

    você coloca assim o recordset de exemplo: rs(“data_do_banco”)
    Response.Write(ConvertDataBanco(rs(“data_do_banco”)))

  5. Bom dia Ted, não sei qual o problema… coloquei como vc disse e continua com erro de sintaxe.
    Cadastrado em:

  6. Cadastrado em:

    Function ConvertDataBanco(ConDataBanco)
    ConDataBanco = Right(“0″&Day(ConDataBanco),2) &”-”& Right(“0″&Month(ConDataBanco),2) &”-”& Year(ConDataBanco)
    ConvertDataBanco = ConDataBanco
    End Function
    Response.Write(ConvertDataBanco(lista_todos(”data”)))

  7. Opa! Tava vacilando, tava colocando a function na body, por isso n funcionava.
    Muito obrigado mestre Ted

  8. nada haver, hehe, isso é ASP e não JavaScript…

    Que bom que resolveu.!

  9. invatat o multime

Deixe seu Comentário