USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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//
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página