Consulta

[Guest - Marcelo -]

Tenho servidor instalado em ingles, banco access com data em portugues, quando faço um pesquisa de por data exemplo 01/05/2005 não acha nada, porque a data esta como formato em ingles 05/01/2005, agora quado tem dois digitos o dia exemplo 29/05/2005 ai ele busca normal.....pois a busca aceita no padrão brasileiro.

[ViniciusJau]

você já tentou usar alguma função pra formatar a data... ??

só não sei como ... montar uma pra um sistema de busca...

[Guest - marcelo -]

data=request.form("data")

dim dd, mm, aa

Function FormataData(data)

dd = Day(data)

mm = Month(data)

aa = Year(data)

if len(dd) = 1 then dd = "0" & dd

if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(dd & "/" & mm & "/" & aa)

End Function

Response.Write("<center><font color=red face=verdana size=4>Lista de Funcionarios e Refeiçoes da Escala de Plantão</font></center>")

Set objRS = objDB.Execute ("SELECT * FROM usp where cdate(Data) ='"& Cdate(data_certa) &"'")

[ViniciusJau]

ve se te ajuda:

um post do nosso amigo guto:

http://scriptbrasil.com.br/forum/index.php...indpost&p=90726

[Guest - marcelo -]

eu abri o banco e as datas estão em padrão brasileiro......so que faço a busca usando este procedimento

Function FormataData(data)

dd = Day(data)

mm = Month(data)

aa = Year(data)

if len(dd) = 1 then dd = "0" & dd

if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(mm & "/" & dd & "/" & aa)

End Function

Set objRS = objDB.Execute ("SELECT * FROM usp where Cdate(data) ='"& FormataData(data_certa) &"'")

.......................tem como usar o FormataData no campo data onde esta o Cdate??????

a data que tem dosi digitos no dia busca normal quando uso (mm & "/" & dd & "/" & aa) no FormataData

agora quando a data tem apenas um digito no dia fica em padrão brasileiro ai não faz a busca......porque a busca em em FormataData = CStr(mm & "/" & dd & "/" & aa)

[bareta]

usa essa função

[Guest - marcelo -]

Obrigado...........valeu