Fitrar por fecha actual

[javimax182]

Hola mi nombre es javier, estoy trabajando con un query en delphi 7.
Lo que yo quiero es Filtrar por las ventas que se realizaron en el dia, ya que la tabla posee un campo llamado "Fecha de Compra". Despues lo que quisiera es filtrar las ventas en el ultimo mes, entre otras...
Les ruego que me ayuden, porque lo necesito inmediatamente. No encontre un hilo que me lo pudiera responder, si alguien sabe de un que me avise. Gracias.

[[Caral]]

Hola javimax182
Bienvenido al club.
Es dificil dar una opinion sin suficientes datos.
Delphi 7. Bien
Base de datos ????
Componentes con que enlazas la tabla ???
Otros datos que puedas aportar
Saludos

[javimax182]

Utizo una tabla Paradox 7, un dbgrid, un datasoure, un query y un combobox en donde yo selecciono el periodo de tiempo que yo quisiera que filtre (Todos, Hoy, ultimos 10 dias, Ultimos 30 dias y Este mes).
Pero no se como hacer ese tipo de filtrado.
Por favor ayudenme. Gracias.

[[Delphius]]

Hola javimax182,
Bienvenido a clubdelphi. Como recién ingresas te informo sobre la guia de estilo, recomiendo su lectura.

Con respecto a tu problema, hay muchos hilos sobre el tema. Lo puedes hacer con Filter,con una SQL...

Sería bueno que nos aportes más detalles:
¿Que motor usas?
¿Que componentes usas?
¿Puedes mostrarnos un poco de como estás trabajando?

Saludos,

[juanpe]

query.sql.clear;
query.sql.add('select * from Ventas where fecha_ventas between :fechainicio and :fechafin');
query.parambyname('fechainicio').asdate:= date-15; //la fecha de hace 15 dias
query.parambyname('fechafin').asdate:= date; //la fecha de hoy
query.execsql;

Espero que te valga.

[javimax182]

Gracias por eso pero, como es para filtrar por las ventas que se hicieron en el dia. y como es para filtrar las ventas que se hicieron en el mes actual, por ejemplo:Febrero.

[juanpe]

Del dia, por ejemplo

query.sql.clear;
query.sql.add('select * from Ventas where fecha_ventas like :fecha);
query.parambyname('fecha').asdate:= date;
query.execsql;

De febrero

query.sql.clear;
query.sql.add('select * from Ventas where fecha_ventas between :fechainicio and :fechafin');
query.parambyname('fechainicio').asstring := '1/02/2008';
query.parambyname('fechafin').asstring := '29/02/2008';
query.execsql;

Creo que ambas fechas son incluidas en los resultados.

[javimax182]

si pero que no se tenga que depender de 1/02/2008...etc
Sino que funcione para todos los meses y no tenga que andar modificando el codigo. Gracias

[[Delphius]]

Empezado por javimax182

si pero que no se tenga que depender de 1/02/2008...etc
Sino que funcione para todos los meses y no tenga que andar modificando el codigo. Gracias

Explicate mejor javimax182. ¿Tu lo que quieres es pasar en modo de ejecución el rango de fechas?

Nada te impide hacer cosas así:

Código Delphi [-]
Query1.ParamByName('tu_parametro').asString := Edit1.Text;

Es un ejemplo, deberías adaptarlo al tipo de datos que reciba. Pero creo que se entiende la idea. Si tienes dudas avisa.

Saludos,