|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Função para inverter data em consulta de SQL (string)
|
 |
|
|
|
Postada em 16/3/2007 por LCRamos
Para efetuar strings de consultas com datas é necessário o formato americano e o (#) jogo da velha no Microsoft Access.
No SQL Server deve ser usado aspas simples (')
Public Function INVERDATA(srDTA As String) As String
Dim cdDIA As String
Dim cdMES As String
Dim cdANO As String
cdDIA = Format(Day(srDTA), "00")
cdMES = Format(Month(srDTA), "00")
cdANO = Format(srDTA, "yyyy")
INVERDATA = "#" & cdMES & "/" & cdDIA & "/" & cdANO & "#"
End Function
Chame antes da string de consulta:
DATAAMERICANA = INVERDATA(MINHADATA)
vlu//
|
|
|
|
|
