Decimales (uAVG)

[jmlifi]

Tras una consulta que he utilizado AVG(campo) el resultado me devuelve muchos decimales. Que sentencia o instrucciónn tengo que utilizar para que la consulta me devuelva sólo 2 decimales.

[marcoszorrilla]

Código Delphi [-]
 TFloatField(Query1.FindField('Nombre_Campo')).DisplayFormat := ',0.00';

Un Saludo.

[jmlifi]

Empezado por marcoszorrilla

Código Delphi [-]
 TFloatField(Query1.FindField('Nombre_Campo')).DisplayFormat := ',0.00';

Un Saludo.

El avg me devuleve registros con muchos decimales ej: 0,2312321321312 .
Quiero convertirlo en 0,23.
Si te sirve de algo los registros se muestran en un DBGrid.
saludos.

Código Delphi [-]
  with tblPedidos,Sql do begin
       Pedidos.Close;
       Clear;
       Add('select nesting.pedido,avg(nesting.aprov) mediapedidos ');
       Add('from nesting,pedidos,clientes ');
       Add('where nesting.pedido=pedidos.pedido and 
       Add('group by  nesting.pedido ');
       Add('order by  pedidos.f_ped');
       AbreDbf([Pedidos]);
  end;

[marcoszorrilla]

Da lo mismo en donde se visualice lo que hay que dar formato es a la consulta

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 TFloatField(Query1.Fields[1]).DisplayFormat := ',0.00';
 end;

Como veo que no usas campos persistentes , tenemos que partir de la columna que ocupa el campo a formatear, teniendo en cuenta que las columnas van de 0.....xx, en el ejemplo el formato se lo damos a la columna 2 de la consulta

Un Saludo.

[MasterXP]

Y por que no dejas que el motor de BD se encargue de eso, yo lo haria de esta forma:

Código SQL [-]
 SELECT Id,Nombre, Fecha_ingreso, Format(AVG(Salario),2) AS Salario FROM Empleados Group By ID ORDER BY Salario DESC;

SALU2.

[jmlifi]

La instrucción: TFloatField(tblPedidos.Fields[1]).DisplayFormat := ',0.00';
Me sigue sin funcionar.

Trabajo bajo Interbase y tengo el siguiente codigo:

with tblPedidos,Sql do begin
Pedidos.Close;
Clear;
TFloatField(tblPedidos.Fields[1]).DisplayFormat := '0.00';

Add('select nesting.pedido,avg(nesting.aprov) mediapedidos ');
Add('from nesting,pedidos,clientes ');
Add('where nesting.pedido=pedidos.pedido and pedidos.codcliente=clientes.codigo ');
if EditPedido.Text<>'' then begin
Add(' and nesting.pedido=' +QuotedStr(EditPedido.Text));
end;
if EditCliente.Text<>'' then begin
Add(' and clientes.nom=' + QuotedStr(EditCliente.Text));
end;
if EditDesde.Text<>'' then begin
Add(' and pedidos.f_ped>=' + QuotedStr(ModificarFecha(EditDesde.Text)));
end;
if EditHasta.Text<>'' then begin
Add(' and pedidos.f_ped<=' + QuotedStr(ModificarFecha(EditHasta.Text)));
end;
Add('group by nesting.pedido ');
Add('order by pedidos.f_ped');
AbreDbf([Pedidos]);
end;

[marcoszorrilla]

Código Delphi [-]
 
   with tblPedidos,Sql do begin
        Pedidos.Close;
        Clear;
 
        Add('select nesting.pedido,avg(nesting.aprov) mediapedidos ');
        Add('from nesting,pedidos,clientes ');
        Add('where nesting.pedido=pedidos.pedido and pedidos.codcliente=clientes.codigo ');
        if EditPedido.Text<>'' then begin
          Add(' and nesting.pedido=' +QuotedStr(EditPedido.Text));
        end;
        if EditCliente.Text<>'' then begin
           Add(' and clientes.nom=' + QuotedStr(EditCliente.Text));
        end;
        if EditDesde.Text<>'' then begin
           Add(' and pedidos.f_ped>=' + QuotedStr(ModificarFecha(EditDesde.Text)));
        end;
        if EditHasta.Text<>'' then begin
           Add(' and pedidos.f_ped<=' + QuotedStr(ModificarFecha(EditHasta.Text)));
        end;
        Add('group by  nesting.pedido ');
        Add('order by  pedidos.f_ped');
        AbreDbf([Pedidos]);
         TFloatField(tblPedidos.Fields[1]).DisplayFormat := '0.00';
  
   end;

Un Saludo.

[jmlifi]

me da el siguiente error:

List index Out of bounds(1) //fuera de rando