Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Gilberto Jr

[Resolvido] Busca entre duas datas

Por , em ASP Clássico

Recommended Posts

Gilberto Jr    26

Gilberto Jr
Postado

Olá pesssoal, boa noite.

 

É o seguinte eu estou fazendo uma pagina de busca no site, e nessa pesquisa vai usar 3 criterios

1º Loja

2º Data Inicial

3º Data Final

 

O codigo esta assim:

<!--#include file="config.asp" -->
<%
call connect
dim rs, lojas, dia, mes, ano, diaf, mesf, anof
q = request.QueryString("loja")
q2 = request.QueryString("datainicio")
q3 = request.QueryString("datafim")

set lojas = con.execute("SELECT * FROM FILIAIS")

set rs = con.execute("SELECT  *  FROM LOJA_NOTA_FISCAL WHERE CODIGO_FILIAL='"&q&"' AND EMISSAO BETWEEN '"&q2&"' and  '"&q3&"' ")
%>
<html>
<head>
<title></title>
</head>
<body>
<form action="default.asp" method="get">
<select id="loja" name="loja">
	<option value="0">Selecione uma loja</option>
	<%
		while lojas.eof=false
	%>
	<option value="<%=lojas("COD_FILIAL")%>"><%=lojas("FILIAL")%></option>
	<%
		lojas.movenext
		wend
	%>
</select> | 
Data Início <input  type="text" id="datainicio" name="datainicio" size="15" /> Data Fim <input  type="text" id="datafim" name="datafim" size="15" /> <input  type="submit" value="Buscar" />
</form>

</body>
</html>
So que a pessoa irá digitar no formato brasileiro dd/mm/yyyy e queria uma forma pra coverter essa tada para yyyy-mm-dd ou yyyy/mm/dd

 

 

Deste ja eu agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

usa essa funcaun

 

<%
Function ConvertDataBanco(ConDataBanco)
    ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)
    ConvertDataBanco = ConDataBanco
End Function
Response.Write(ConvertDataBanco(Date()))
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

no lugar do Date()

Response.Write(ConvertDataBanco(Date()))

 

você coloca assim o recordset de exemplo: rs(”data_do_banco”)

Response.Write(ConvertDataBanco(rs(”data_do_banco”)))

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

A data Inicio eu consegui fazer

Segue abaixo o codigo:

<%
call connect
dim rs, q2, q3, lojas, ConvertDataBancoi, ConvertDataBancof
q = request.QueryString("loja")
q2 = request.QueryString("datainicio")
q3 = request.QueryString("datafim")

set lojas = con.execute("SELECT * FROM FILIAIS")


Function ConvertDataBanco(q2)
    q2 = Year(q2) &"-"& Right("0"&Month(q2),2) &"-"& Right("0"&Day(q2),2)
    ConvertDataBanco = q2
End Function

Function ConvertDataBancoFim(q3)
    q3= Year(q3) &"-"& Right("0"&Month(q3),2) &"-"& Right("0"&Day(q3),2)
    ConvertDataBancoFim = q3
End Function

set rs = con.execute("SELECT  *  FROM LOJA_NOTA_FISCAL WHERE CODIGO_FILIAL='"&q&"' AND EMISSAO  BETWEEN '"&ConvertDataBanco(q2)&"' and  '"&ConvertDataBancoFim(q3)&"' ")
%>

Quando eu faço a funcao da data final ele da o seguinte erro.

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'q3'

/SISTEMA/default.asp, line 18

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza, feliz ano novo, tb

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito