Para buscar o dia:
 
***Para buscar o DIA:
 
No evento onclick do button1 digito o seguinte código...
 
qysql1.close;
qysql1.sql.clear;
qysql1.sql.add('select * from tabela where extract(day from
campo_que_contem_a_data) = MES_NUMERICO_DESEJADO');
qysql1.open;
 
agora é só ligar os campos da qysql1 ao dbgrid1 e pronto
 
***Para buscar o MES:
 
No evento onclick do button1 digito o seguinte código...
 
qysql1.close;
qysql1.sql.clear;
qysql1.sql.add('select * from tabela where extract(month from
campo_que_contem_a_data) = MES_NUMERICO_DESEJADO');
qysql1.open;
 
agora é só ligar os campos da qysql1 ao dbgrid1 e pronto,
 
***Para buscar o ano:
 
No evento onclick do button1 digito o seguinte código...
 
qysql1.close;
qysql1.sql.clear;
qysql1.sql.add('select * from tabela where extract(year from
campo_que_contem_a_data) = MES_NUMERICO_DESEJADO');
qysql1.open;
 
agora é só ligar os campos da qysql1 ao dbgrid1 e pronto....
 
***Vc pode incrementar usando variáveis para entrar com o mês desejado da
busca....
 
procedure Tform1.Button1Click(Sender: TObject);
var mes: string;
begin
x:= '';
x:=InputBox('Busca por MES','Digite o Mes a ser procurado','');
 
qysql1.close;
qysql1.sql.clear;
qysql1.sql.add('select * from tabela where extract(month from
campo_que_contem_a_data) = '''+mes+'''');
qysql1.open;
 
 
***Você pode incrementar ainda mais buscando o mês e ano, ou dia e mês;
 
O exemplo a baixo mostra a busca de um dia e um mês sem importar o ano;
procedure Tform1.Button1Click(Sender: TObject);
var dia, mes: string;
begin
dia:= '';
mes:='';
 
dia:=InputBox('Busca por DIA E MES','Digite o Dia a ser procurado','');
mes:=InputBox('Busca por DIA E MES','Digite o Mês a ser procurado','');
 
qysql1.close;
qysql1.sql.clear;
qysql1.sql.add('select * from tabela where extract(day from
campo_que_contem_a_data) = '''+dia+''' and extract(month from
campo_que_contem_a_data) = '''+mes+'''');
qysql1.open;
 
Até a próxima...