Fórum Ajuda com SQL quot;select sumquot; #364757

procedure Tform1.soma;
begin
  with QuerySoma do
  begin
    close;
    sql.clear;
    sql.Add(´select sum(Valor) as SomaEntrada from tabela´);
    sql.Add(´where DataPagamento >=:Vnum1 ´);
    sql.Add(´and DataPagamento <=:Vnum2 ´);
    paramByname(´Vnum1´).Value:=DateTimePicker1.datetime;
    paramByname(´Vnum2´).Value:=DateTimePicker2.datetime;
    open;
  end;
  Edit1.Text:= ´R$ ´+FormatFloat(´#,0.00´,SomaEntrada);
end;