comparacion de fechas

[alejitoo]

buena muchachos anoche pase todo el dia con una amiga intentando q me corriera el programa y ella consiguio un code buenisimo aqui se los dejo espero que les sirva a aquellas personas q tengan la misma duda que yo

Query1.SQL.Text := ('SELECT * FROM Nombre de la tabla ');
Query1.sql.add('Where Fecha between :fecha1 and :fecha2');
Query1.parambyname('fecha1').asdatetime := fecha1.Date;
Query1.parambyname('fecha2').asdatetime := fecha2.Date;
Query1.Open;

necesitaran dos datetimepicker y los llamaran fecha1 y fecha2. pegan esto y listo funciona no tienen q estar programando tanto..

espero que les sirva de mucha ayuda

[odrack]

Hola!!

Quiza sea un poco tarde y seguramente ya lo hayan resuelto, pero a alguien mas le pueda servir si tiene el mismo problema.

Colocar dos datetimepicker y dos variables
var fecha1, fecha2:string;

el siguiente codigo hace la busqueda

Código Delphi [-]
//formatea la fecha
 fecha1:=formatdatetime('YYYY-MM-DD', datetimepicker1.date);
  fecha2:=formatdatetime('YYYY-MM-DD', datetimepicker2.date);
 
//busca datos en tabla
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Text:='select * from tabla where fecha between '+quotedstr(fecha1)+' and '+quotedstr(fecha2);
  query1.ExecSQL;
  query1.Open;

Saludos!!

[fpirovani]

Empezado por odrack

Hola!!

Quiza sea un poco tarde y seguramente ya lo hayan resuelto, pero a alguien mas le pueda servir si tiene el mismo problema.

Colocar dos datetimepicker y dos variables
var fecha1, fecha2:string;

el siguiente codigo hace la busqueda

//formatea la fecha
fecha1:=formatdatetime('YYYY-MM-DD', datetimepicker1.date);
fecha2:=formatdatetime('YYYY-MM-DD', datetimepicker2.date);

//busca datos en tabla
query1.Close;
query1.SQL.Clear;
query1.SQL.Text:='select * from tabla where fecha between '+quotedstr(fecha1)+' and '+quotedstr(fecha2);
query1.ExecSQL;
query1.Open;





Saludos!!

Buenas! yo quise hacer algo parecido pero no funcionaba, buscando en internet encontre esto y me andubo de 10.


Query.Active := False;
Query.SQL.Text := 'select * from Tabla where Fechas between #'+DateToStr(Fecha_Desde)+'# and #'+ DateToStr(Fecha_Hasta)+'# ';
Query..Active := True;

Como ven las fechas estan delimitadas por #, no me pregunten por que, pero asi anda y de la otra forma no me andaba...
Estoy usando delphi 7 y en este momento los componentes ADO

Saludos a todos !!