Redondeo

novato_erick · #1 03-04-2014

Hola ecfisa y casimiro gracias ppr responder... en realidad ecfisa tine razon. El problema no esta en las funciones de redondeo si no en el mismo campo en la base de datos de firebird q almacena el dato como un float hasta con N cantidad de decimales q en ocasiones en el tercer decimal hay un numero mayor de 5 haciendo dificil o creo imposible q no me redondee... tendre q cambiar el campo en la bd a Decimal 12,2..

....

Agradeciendo siempre su aporte

Novato_erick

Casimiro Notevi · #2 03-04-2014

Cita:

Empezado por novato_erick

Hola ecfisa y casimiro gracias ppr responder... en realidad ecfisa tine razon. El problema no esta en las funciones de redondeo si no en el mismo campo en la base de datos de firebird q almacena el dato como un float hasta con N cantidad de decimales q en ocasiones en el tercer decimal hay un numero mayor de 5 haciendo dificil o creo imposible q no me redondee... tendre q cambiar el campo en la bd a Decimal 12,2..

Claro, pero eso es así en todos los sistemas, no puedes usar un float para eso.

ecfisa · #3 03-04-2014

Hola.

Si, y también agregar que podes utilizar la función ROUND de Firebird.

Como ejemplo:

Código SQL [-]SELECT ROUND(3.141592654, 6) FROM RDB$DATABASE; -- 3,141593000

Saludos

novato_erick · #4 03-04-2014

Cita:

Casimiro:
Claro, pero eso es así en todos los sistemas, no puedes usar un float para eso

Es cierto a duro golpe me acabo de percatar de eso..

Cita:

Si, y también agregar que podes utilizar la función ROUND de Firebird.

Como ejemplo:

Código SQL [-]SELECT ROUND(3.141592654, 6) FROM RDB$DATABASE; -- 3,141593000

acabo de intentarlo con tu sugerencia ecfisa, pero el resultado es el mismo ejemplo:

Código SQL [-]SELECT ROUND(11.9954967498779, 6) FROM RDB$DATABASE; -- 11.995496

el asunto como lo mencioné antes la db tiene el campo de tipo Float el cual todo numero que ingrese me manda hasta doce decimales.

la solución creo que estaría en cambiar el tipo de dato a Decimal 12, 2 como lo puse en el post anterior sin embargo me acabo de encontrar que no es compatible Decimal con float En firebird aunque tambien se que no es exclusivo de firebird la incopatibilidad de datos ya ingresado para codificar el campo;

nuevamente Gracias Chicos... Es bueno saber que no estoy solo en esto....

Saludos

ecfisa · #5 03-04-2014

Cita:

Empezado por novato_erick

...
acabo de intentarlo con tu sugerencia ecfisa, pero el resultado es el mismo...

Si si, por supuesto. Funciona del mismo modo que SimpleRoundTo, solo lo mencioné como alternativa para, por ejemplo, traer el resultado ya redondeado desde la consulta.

Como te comentó Casimiro es el comportamiento natural de todos los sistemas (al menos los que conozco).

Saludos

[nlsgarcia] · #6 03-04-2014

novato_erick,

Cita:

Empezado por novato_erick

...Alguna mejor idea de funciones de redondeo que me retorne valores deseados reales...

Revisa este código:

Código Delphi [-]unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Math;

type
  TForm1 = class(TForm)      
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   RadioGroup1.ItemIndex := 0;
end;

// Realiza diversos tipos de redondeo
procedure TForm1.Button1Click(Sender: TObject);
var
   N1 : Double;
   E : Integer;

begin

   {

   -function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode
  
   Sets the FPU rounding mode.
  
   (RoundMode)
   rmNearest : Rounds to the closest value.
   rmDown : Rounds toward negative infinity.
   rmUp : Rounds toward positive infinity.
   rmTruncate : Truncates the value, rounding positive numbers down and negative numbers up.
  
   -function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
  
   Rounds a floating-point value to a specified digit or power of ten using “Banker’s rounding”.

   }

   N1 := 2.718281;

   case RadioGroup1.ItemIndex of

      0 : begin
             SetRoundMode(rmUp);
             // Muestra 2.72
             ShowMessage(FormatFloat('#,###,###.00',RoundTo(N1,-2)));
          end;

      1 : begin
             SetRoundMode(rmDown);
             // Muestra 2.71
             ShowMessage(FormatFloat('#,###,###.00',RoundTo(N1,-2)));
          end;

      2 : begin
             SetRoundMode(rmNearest);
             // Muestra 2.72
             ShowMessage(FormatFloat('#,###,###.00',RoundTo(N1,-2)));
          end;

      3 : begin
             SetRoundMode(rmTruncate);
             // Muestra 2.71
             ShowMessage(FormatFloat('#,###,###.00',RoundTo(N1,-2)));
          end;

   end;

end;

// Estable el número de decimales (Truncado) sin redondeo de valores doubles
function DoubleDecimals(Number : Double; Decimal : Integer) : Double;
var
   AuxNumber : String;

begin

   AuxNumber := FloatToStr(Number);

   if Pos('.',AuxNumber) > 0 then
      Result := StrToFloat(Copy(AuxNumber,1,Pos('.',AuxNumber) + Decimal))
   else
   if Pos(',',AuxNumber) > 0 then
      Result := StrToFloat(Copy(AuxNumber,1,Pos(',',AuxNumber) + Decimal))
   else
      Result := Number;

end;

// Convierte un valor de n decimales a m decimales sin redondeo
procedure TForm1.Button2Click(Sender: TObject);
var
   N1 : Double;
   E : Integer;

begin

   N1 := 2.718281;

   // Convierte 2.718281 en 2.71, se establece el truncado de decimales sin redondeo a 2
   N1 := DoubleDecimals(N1,2);

   // Muestra 2.71
   ShowMessage(FloatToStr(N1));

end;

end.

El código anterior permite hacer diferentes tipos de ajustes decimales con redondeo y sin redondeo.

Espero sea útil

Nelson.

Casimiro Notevi · #7 03-04-2014

Si quieres redondear, por ejemplo, a 2 decimales:

Código Delphi [-]resultado := redondeo(importe,2);

Código Delphi [-]uses Math;

...
...

function Redondeo (valor: Double; decimales: integer = 0): Double;
var
  factor: Double;
begin
  factor := IntPower(10,decimales);
  //
  if valor > 0 then
    Result := (trunc((valor*factor)+0.5)) / factor
  else
    Result := (trunc((valor*factor)-0.5)) / factor;
end;

ecfisa · #8 04-04-2014

Hola novato_erik.

Tanto Delphi como Firebird, redondean (y lo hacen muy bién) con SimpleRoundTo() y ROUND(), pero si sos de los que te gusta ir a las bases, te pongo otra opcion.

Delphi:

Código Delphi [-]function Redondear(const Numero: Double; const Digitos: Integer): Double;
var
  Factor: Double;
begin
  Factor:= Abs(Exp(Ln(10)*(-Digitos)));
  Result:= Trunc((Numero/Factor) + 0.5) * Factor;
end;

Firebird:

Código SQL [-]SET TERM ^ ;

CREATE OR ALTER PROCEDURE SP_ROUND(NUMERO DOUBLE PRECISION, DIGITOS INTEGER)
RETURNS(RESULT DOUBLE PRECISION)
AS
  DECLARE VARIABLE FACTOR DOUBLE PRECISION;
BEGIN
  FACTOR = ABS(EXP(LN(10)*(-DIGITOS)));
  RESULT = TRUNC((NUMERO/FACTOR)+0.5)*FACTOR;
  SUSPEND;
END^

SET TERM ; ^

Saludos

Casimiro Notevi · #9 22-04-2014

Cita:

Empezado por Casimiro Notevi

Si quieres redondear, por ejemplo, a 2 decimales:

Código Delphi [-]]resultado := redondeo(importe,2);

Código Delphi [-]function Redondeo (valor: Double; decimales: integer = 0): Double;
var
  factor: Double;
begin
  factor := IntPower(10,decimales);
  //
  if valor > 0 then
    Result := (trunc((valor*factor)+0.5)) / factor
  else
    Result := (trunc((valor*factor)-0.5)) / factor;
end;

Como dos gotas de agua, "me han copiado"