|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Validações)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Converter datas pra qualquer BANCO
|
![](images/box01dirsup.gif) |
|
|
Postada em 27/6/2007 por Jailton Sampaio
jailton_sampaio@hotmail.com
Function ConvertData(data As Variant) As String ' If gDatDatabase = eSybase Or gDatDatabase = eSQL Then ConvertData = "'" & Format(data, DB_MascaraData) & "'" ElseIf gDatDatabase = eOracle Then ConvertData = "TO_DATE('" & Format(data, "dd/mm/yyyy") & "','dd/mm/yyyy')" ElseIf gDatDatabase = eAccess Then ConvertData = "Format('" & Format(data, "dd/mm/yyyy") & "','dd/mm/yyyy')" End If ' End Function
|
|
|
|
![](images/hosted.gif)
|