Buscar por:

Consulta entre datas utilizando sql

Código

If DateTimePicker2.Date < DateTimePicker1.Date Then 

begin 

ShowMessage('Intervalo de datas inválido, a data inicial é maior que a data final!'); 

DateTimePicker2.Date := DateTimePicker1.Date; 

end 

Else 

begin 

Inicio := DateToStr(DateTimePicker1.Date); 

Final := DateToStr(DateTimePicker2.Date); 

Query1.Close; 

Query1.SQL.Clear; 

Query1.SQL.Text := 'SELECT Nome,Empresa,FoneRes,FoneCom,Mala FROM Contatos WHERE Data >=:pInicial and Data<=:pFinal ORDER BY Nome'; 

Query1.ParamByName('pInicial').AsDateTime := StrToDate(Inicio); 

Query1.ParamByName('pFinal').AsDateTime := StrToDate(Final); 

Query1.Prepare; 

Query1.Open; 

DBGrid3D1.SetFocus 

end; 

Label3.Caption := 'Total de contatos: ' + IntToStr(Query1.RecordCount)