O fim dos problemas com datas

O código abaixo foi retirado do site http://www.4guysfromrolla.com/, com pequenas modificações:

Function CampoData( Data, TimeStamp )
If TimeStamp Then
  CampoData = "{ts '" & year(Data) & "-" & month(Data) & "-" & day(Data) & " " & Hour(Data) & ":" & Minute(Data) & ":" & Second(Data) & "'}"
Else
  CampoData = "{d '" & year(Data) & "-" & month(Data) & "-" & day(Data) & "'}"
End If
End Function

Essa função irá gerar uma string que pode ser incluida normalmente em bancos de dados SQL e Access, como no exemplo abaixo:

SQLstmt = "insert into tabela (campo_data) values " & CampoData( cDate( date() & " " & time() ), false )

Note que o segundo parâmetro define se a data convertida será apenas a data (false) ou o time stamp (data e hora, true).

Nota: o código anterior fazia uso da função Format do VisualBasic, que não está disponível no VBScript. Esta rotina deve agora funcionar bem no ASP.

Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...