segunda-feira, 18 de dezembro de 2017
DVD
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Função para converter Data
Autor:  Osmar Junior (jrosmar@yahoo.com.br)
Publicado:  18/02/2004
Visitas: 7589
 
Função para converter data

Para facilitar a vida nos tratamentos de datas, convertendo datas em qualquer formato para o formato americano, que é entendido nas consultas:


Function ConvDtUSA(x As Variant)
If Not IsDate(x) Then Exit Function
ConvDtUSA = "#" & Month(x) & "/" & Day(x) & "/" & Year(x) & "#"
End Function



Crie a função acima em um módulo padrão e está feito...

No código ficaria:

SELECT * FROM tbTabela WHERE DataInicial = " & ConvDtUSA(Me!DataInicial)

  « Voltar

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco