Buscar por:

Como filtrar registros de uma tabela pelo mês de um campo data?

Código

//Você pode usar a função DecodeDate( ) no evento onFilterRecord de um componente TTable. //Ex.:

// não se esqueça de mudar a propriedade Filtered para True; 

// isto fará com que o evento onFilterRecord seja disparado. 

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); 

var 

  Dia, Mes, Ano: word; 

begin 

  Accept := false; 

  DecodeDate(Table1['Competencia'],Ano,Mes,Dia); 

  if Mes=MesFiltrado then 

  Accept := True; 

end;

{Obs.: Você pode usar este mesmo código para filtrar por Ano ou por Dia, basta utilizar a comparação adequada no bloco if ... then }