Código Delphi
[-]query1.SQL.Text:='select sum(importe) as suma from lineasventa And Fecha Between :i And :f';;
Query1.ParamByName('i').AsDate:=dFechaINi;
Query1.ParamByName('f').AsDate:=dFechaFin;
Query1.Open;
En donde dFechaIni y dFechaFin serían dos variables de tipo fecha conteniendo las fechas inicial y final respectivamente.
Un Saludo.