Fórum Pesquisa com Datas e query,qreport #224422

Bem Snipa,

Não sou um expert em SQL mas tive um probela parecido com o seu em um dos meus projeto então solucionei da sequinte maneira (não sei se é a mais adquada, porém funcionou):

Exemplo

Dados
[b:2d57c16112]Data Inicial (25/04/2004)[/b:2d57c16112] • [b:2d57c16112]Data Final (30/12/2004)[/b:2d57c16112], SQL reconhece o formato de data mm/dd/aaaa, então vc precisa converter as datas de [b:2d57c16112]dd/mm/aaaa[/b:2d57c16112] para [b:2d57c16112]mm/dd/aaaa[/b:2d57c16112]

procedure Tfrom.Button1Click...
Var
DiaI, MesI, AnoI, DataI: string; // ira receber o valor da Data Inicial
DiaF, MesF, AnoF, DataF: string; // ira receber o valor da Data Final
begin
DiaI:= FormatDate(´dd´,Data Inical);
MesI:= FormatDate(´mm´, DataInicial);
AnoI:= FormatDate(´yyyy´, DataInicial);
DataI:= MesI + ´/´ + DiaI + ´/´ + AnoI; // data incial ficou: 04/25/2004
DiaF:= FormatDate(´dd´,Data Final);
MesF:= FormatDate(´mm´, Data Final);
AnoF:= FormatDate(´yyyy´, DataFinal);
DataF:= MesF + ´/´ + DiaF + ´/´ + AnoF; // datafinal ficou : 12/30/2004
with QyEntreDatas.SQL do
begin
Clear;
QyEntreDatas.Close;
Add(´Select * From Clientes´);
add(´Where (Data >= ´ + ´´´´ + Data IniciaL + ´´´´ + ´)´);
Add(´ And (Data <= ´ + ´´´´ + DataFinal + ´´´´ + ´)´);
QyEntreDatas.Open;
end;
end;


Esse exemplo está no evento OnClick de um Button.
Obs.: os campos data inicial e data final podem ser Edits.

Qualque coisa estamos por aqui.
Luis Neto

[quote:c65f0a29a6=´Luis Neto´]
Falha Nossa (altere a linha SQL)
with QyEntreDatas.SQL do
begin
Clear;
QyEntreDatas.Close;
Add(´Select * From Clientes´);
add(´Where (Data >= ´ + ´´´´ + DataI + ´´´´ + ´)´);
Add(´ And (Data <= ´ + ´´´´ + DataF + ´´´´ + ´)´);
QyEntreDatas.Open;
end;
end;

Os Campos Data tem que receber os valores das variaveis...
[/quote:c65f0a29a6]

Awe cara fmz??
Bom eu pus como voce falo
so que o problema agora eh que ele tah dando erro nessa linha


tah dando esse erro:
[Error] FrmRela.pas(51): Undeclared identifier: ´FormatDate´

E ae sabe oque pode ser?

a função FormatDateTime tem como parâmetros (uma String, um TDateTime). Qualquer coisa deixe o cursor sobre a palavra FormatDateTime e aperte F1.

altere a linha com erro por:

DiaI := [color=blue:38fdf57d81]FormatDateTime[/color:38fdf57d81](´dd´,StrToDate(FrmPesq.Edit1.Text));

Po cara vlw nao deu mais o erro
Mais o meu problema ainda tah ocorrendo
Nao tah aparecendo nenhum registro nem dando msg de erro
Oxe sera que ninguem nunca fez algo assim pra me ajuda?

PESSOAL por favor sera qeu ng sabe?????
preciso disso so pra termina um esquema que to fazendo
por favor pessoal da uma ajuda ae

:)

Snipa,

observando o código que vc apresentou



Ao invés de colocar no AfterPreview experimente colocar no BeforePreview.