Foros Club Delphi - Ver Mensaje Individual

[eduarcol] · #8 12-11-2007

Prueba colocando el StrtoDate

Código Delphi [-]procedure TForm5.ComboBox1Change(Sender: TObject);
var
a:real;
b,fecha1,fecha2,anio:string;
begin
     anio:=getlocald;
     anio:=copy(anio,7,10);
     a:=combobox1.ItemIndex+1;
     fecha1:='01/'+formatfloat('00',a)+'/'+anio;
     fecha2:='31/'+formatfloat('00',a)+'/'+anio;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('select total from dia');
     adoquery1.SQL.Add(' where fecha between :Fechain and :Fechafin');
     adoquery1.Parameters.ParamByName('Fechain').Value:=StrtoDate(fecha1);
     adoquery1.Parameters.ParamByName('Fechafin').Value:=StrtoDate(fecha2);
     adoquery1.Open;
end;