domingo, 22 de julho de 2018
DVD
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #19
Função para converter Data
Publicado: 18/02/2004

Dicas

Função para converter Data
Autor:  Osmar Junior (jrosmar@yahoo.com.br)
Publicado:  18/02/2004
Visitas: 7764
 
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 - 2018- Todos os direitos reservados   Política de Privacidade | Fale conosco