Fitrar por fecha actual

[[maeyanes]]

Hola...

Para hacer lo que quieres solo te basta saber cual es la fecha actual, lo cual logras con la función Now o Date...

Teniendo la fecha actual ya sabes cual es el mes correspondiente, con ese dato ya puedes hacer tu consulta o el filtro de tu tabla:

Código Delphi [-]
var
  ADay, AMonth, AYear: Word;
  FechaInicial, FechaFinal: TDateTime;

begin
  DecodeDate(Now, AYear, AMonth, ADay);
  FechaInicial := EncodeDate(AYear, AMonth, 1);
  FechaFinal := EncodeDate(AYear, AMonth, 31); // Aquí podrías verificar cual es el 
  // máximo de días de el mes especificado para evitar errores de fecha inválida
  TablaVentas.Filter := 'Fecha >= ' + DateToStr(FechaInicial) + ' and Fecha <= ' + DateToStr(FechaFinal);
  TablaVentas.Filtered := True
end;

Espero que este código te de una idea de como lograr lo que deseas...



Saludos...

[paladincubano]

Prueba esto, a mi me funciona de maravillas.
Delphi2007 y SQLExpress2005

Código Delphi [-]
S1 := '01/01/2008';
S2 := '09/10/2010';

Tabla.SQL.Clear;
Tabla.SQL.Add('Select * From Tabla');
Tabla.SQL.Add('WHERE Fecha BETWEEN '+QuotedStr(S1)+' AND '+QuotedStr(S2));
Tabla.Open;

[lKinGl]

jajaja de verdad no se como haces para no entender el tutorial no era para mi y lo logré hacer de 1 sola vez sin fallar y soy novato en delphi bueno suerte ojala lo logres de verdad no se ve forma de mejorar el coódigo facilitado xD