Extraer mes de un combobox

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From Factura');
Query1.Sql.Add('Where Extract(Year from Fecha)= '+QuotedSTR(Edit1.Text));
Query1.Sql.Add('And Extract(Month from Fecha) = '+QuotedSTr(IntToStr(combobox1.itemindex+1)));
Query1.Open;
end

Aquí tienes otro ejemplo.

Un Saludo.