|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Validações)
|
|
 |
Título da Dica: Converter datas pra qualquer BANCO
|
 |
|
|
|
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
|
|
|
|
|
