[douglas]

ok gracias caral funciono el codigo, mi error, estaba en la base de datos, jejejej tonteras de inexpertos, el codigo me quedo asi.

Código Delphi [-]
 
procedure TForm5.ComboBox1Change(Sender: TObject);
var
b,fecha1,fecha2:string;
a,gan,imp,cost:real;
begin
     b:=combobox1.Text;
     a:=combobox1.Items.IndexOf(b)+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+'2007';
     fecha2:='31/'+formatfloat('00',a)+'/'+'2007';
     ADOquery1.Close;
     ADOquery1.SQL.Clear;
     ADOquery1.SQL.Add('select fecha, total, costo, impuesto, ganancia from ciber');
     ADOquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     ADOquery1.Open;

end;

ahora quise crear una sumatoria de de las ganancias e hice algo asi, pero no me funciono.???? me puedes ayudar a determinar que pudo haber pasado

Código Delphi [-]
procedure TForm5.Button1Click(Sender: TObject);
var
b,fecha1,fecha2:string;
a,gan:real;
begin
adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select sum(ganancia)');
     adoquery1.SQL.Add(' from '+quotedstr('ciber'));
     adoquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     ADOquery1.Parameters.ParamByName('Fechain').Value:=fecha1;
     ADOquery1.Parameters.ParamByName('Fechafin').Value:=fecha2;
     adoquery1.Open;
     edit1.Text:=formatfloat('00.00',gan);
     adoquery1.Close;
end;

saludos y gracias