sumatoria de una tabla mientras se cumpla una condicion

[douglas]

perdon chicos, pero ahora me da error en el select, les escribo el error, y perdon ya hasta verguenza me da molestarlo, es que deplano si los estoy molestando muchisimo, perdon, pero este es el error:

invalid use of keyword. token:select

como ven ahora es en el select
perdon les envio como tengo mi codigo ahora

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Add('select sum(monto)');
   query1.SQL.Add(' from ' + QuotedStr('control del internet'));
   query1.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
end;

[[eduarcol]]

debes limpiar la lista

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select sum(monto)');
   query1.SQL.Add(' from ' + QuotedStr('control del internet'));
   query1.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
end;

[[Caral]]

Hola
Con que estableces la fecha?, (datetimepicker o Edit)?
Donde la seleccionas de uno o de dos?
En la tabla existe el campo fecha o es texto?
Paradox permite el parambyname solo?
Por que no hacer la suma por separado?
Bueno, yo tengo esas dudas
Saludos

[douglas]

pues para conseguir la fecha utilizo esta funcion

Código Delphi [-]
 
function GetLocalD: String;
 var
    stSystemTime : TSystemTime;
 begin
    Windows.GetLocalTime(stSystemTime);
    Result := DateToStr( SystemTimeToDateTime( stSystemTime ) );
 end;

y luego el resultado lo coloco en un edit

Código Delphi [-]
procedure TForm3.FormCreate(Sender: TObject);
begin
edit1.Text:=getlocald;
end;

y luego del edit hago todo lo que ya vimos anteriormente, la verdad no se que hacer, perdon por tantas molestias

[[eduarcol]]

porq la fecha no bastaria??

Código Delphi [-]
DatetoStr(Date);

y ahora que error te da???, no sirvio mi ultima sugerencia???

[douglas]

perdon eduardocol, ya funciono, pero ahora el resultado que me da es cero, perdon tanta molestia e ignorancia de mi parte realize el siguiente codigo, y me muestra cero.

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
a:integer;
b:string;
begin
    a:=0;
    query1.Close;
   query1.SQL.Clear;
   a:=a+query1.SQL.Add('select sum(monto)');
   query1.SQL.Add(' from ' + QuotedStr('control del internet'));
   query1.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
   showmessage(inttostr(a));
end;

[[egostar]]

Empezado por douglas

perdon eduardocol, ya funciono, pero ahora el resultado que me da es cero, perdon tanta molestia e ignorancia de mi parte realize el siguiente codigo, y me muestra cero.

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
a:integer;
b:string;
begin
    a:=0;
    query1.Close;
   query1.SQL.Clear;
   a:=a+query1.SQL.Add('select sum(monto)');
   query1.SQL.Add(' from ' + QuotedStr('control del internet'));
   query1.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
   showmessage(inttostr(a));
end;

A ver, porque no haces esto:

Código Delphi [-]
   a:=0;
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select sum(monto)');
   query1.SQL.Add(' from ' + QuotedStr('control del internet'));
   query1.SQL.Add(' where fecha between :FechaIn and :FechaFin');
   query1.parambyname('FechaIn').Value:=edit1.text;
   query1.parambyname('FechaFin').Value:=edit2.text;
   query1.Open;
   a := query1.fields[0].AsInteger;   
   query1.Close;
   showmessage(inttostr(a));

Salud OS

[[Caral]]

Hola
La verdad no entiendo todavia el problema, pon dos datetimepicker en el form y hazlo asi, pruebalo a ver que pasa

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var 
b:string;
begin     
query1.Close;
query1.SQL.Text:= 'select sum(monto)' +
                          ' from ' + QuotedStr('control del internet') '+
                          ' where fecha between :FechaIn and :FechaFin' ;
   query1.parambyname('FechaIn').Value:=Datetimepicker1.dateTime;
   query1.parambyname('FechaFin').Value:=Datetimepicker2.dateTime;
   query1.Open;
   showmessage(inttostr(a));
end;

Cuando usas text, no se necesita limpiar la sentencia, para mi es mas claro.
Saludos