Fitrar por fecha actual

[[Caral]]

Hola
Vamos a ver como va esto.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var  
 Mes  :Integer;
 FFecha: TDateTime;
 FechaAc, Fecha1, Mes1, Dia1: string;
begin
  Dia1:= '01'; // El primer dia del mes
  Mes:= MonthOfTheYear(Date); // el mes en curso
  FechaAc:= DateToStr(Now);  // la fecha actual completa
  FFecha:= Now;  // la fecha

  If Mes >= 10 then  // aqui genero una condicion
  begin
  Mes1:= '/';
  end
  else
  Mes1:= '/0';  // aqui termina

  // aqui hago string la fecha completa donde empieza el calculo.
  // tomara en cuenta el primer dia, el mes en curso y año.
  Fecha1:= Dia1 + Mes1 + IntToStr(Monthof(FFecha)) + '/'+ IntToStr(Yearof(FFecha));

// aqui empieza el codigo tuyo.
With QVentas do begin
Close;
SQL.Clear;
sql.add('select * from ResumenVentas where FechaCompra >= :fechainicio and FechaCompra <= :fechafin');
parambyname('fechainicio').Value:= StrToDate(Fecha1); //Primer dia del mes
parambyname('fechafin').Value:= StrToDate(FechaAc);  //Fecha actual del mes
//execsql;
Open;

Creo que esta claro, soy novato.
Saludos

[javimax182]

Disculpa pero no me reconoce las instruciones MonthOfTheYear Monthof Yearof.
Usan algun tipo de uses?

[[Caral]]

Hola
Perdon se me olvido decirte.
coloca este despues de implementacion:

Código Delphi [-]

implementation

uses DateUtils;

Saludos

[[maeyanes]]

Hola...

Así es... tienes que poner DateUtils en el uses de la forma... pero, solo si tienes Delphi 6 en adelante...


Saludos...

[javimax182]

Si funciona gracias. Pero el que me tira error es el de las ventas del dia.

Este es el codigo que le puse:

With QVentas do begin
Close;
sql.clear;
sql.add('select * from ResumenVentas where FechaCompra like :fecha');
parambyname('fecha').asdate:= date;
execsql;
Open;
end;

Me tira este error Type mismatch in expresion

Sabes porque?

[[maeyanes]]

Y ya probaste con:

Código Delphi [-]
sql.add('select * from ResumenVentas where FechaCompra = :fecha');

[javimax182]

SIIIIIIIIIIIIIII. GRACIAS TODOS. CON TODO LO QUE ME AYUDARON, CLUB DELPHI SE GANO UN FIEL USUARIO.

[[Caral]]

Hola

Código Delphi [-]
var  
 FFecha: TDateTime;
begin
  FFecha:= Now;  // la fecha
// aqui empieza el codigo tuyo.
With QVentas do begin
Close;
sql.clear;
sql.add('select * from ResumenVentas where FechaCompra = :fecha');
parambyname('fecha').Value:= FFecha;
//execsql;
Open;
end;

Saludos