Fitrar por fecha actual

[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,

[javimax182]

No, me entendieron mal, lo que yo quiero es que filtre por las ventas que se hicieron en el mes actual.
Por ejemplo: si hoy seria 7 de mayo. Me tendria que filtrar todas las ventas que se hicieron del 1 de mayo hasta el 7 de mayo.
Sabes como?. Gracias

[javimax182]

HELP ME, PLEASE.

ME FALTA SOLA ESE FILTRADO. POR FAVOR AYUDENME. El filtrado de las ventas del mes actual.

[[Caral]]

Hola
Por que no usas dos datetimepicker en los que pondras la fecha 1 y la dos, ose el rango de fechas, asi tendras solucionado esto.
Saludos

[javimax182]

No pero yo quiero que filtre eso automaticamente sin tener que seleccionar nada. No sabrias como?

Yo habia encontrado una funcion como esta:

if combobox2.ItemIndex = 4 then begin
With QVentas do begin
Close;
SQL.Clear;
SQL.Add ('SELECT * FROM ResumenVentas where FechaCompra Between to_date("01/"¦¦to_char(' +(hoy)+',MM/YY),"DD/MM/YY"');
Open;
end; end;

pero no me anda en delphi. me salta error.
Me podrian ayudar?