Ayuda con redondeo

[bucanero]

hola a todos

prueba este código

Código Delphi [-]
function EspecialRound(const value: Currency): Currency;
begin
  Result := value / 1000;
  Result := TRUNC(TRUNC(Result) + Frac(Result) / 0.99) + 1;
  Result := 1000 * Result - 10;
end;

procedure TForm2.test;
const
  values: array[1..4] of Currency = (25430.25, 36751, 18950.45, 18992);
var
  i: LongInt;
begin
  for i := 1 to 4 do
    Memo1.Lines.Add(format('%m: %m', [values[i], EspecialRound(values[i])]));
end;

Un saludo

[Oscar Guzmán]

Empezado por bucanero

hola a todos

prueba este código

Código Delphi [-]function EspecialRound(const value: Currency): Currency; begin Result := value / 1000; Result := TRUNC(TRUNC(Result) + Frac(Result) / 0.99) + 1; Result := 1000 * Result - 10; end; procedure TForm2.test; const values: array[1..4] of Currency = (25430.25, 36751, 18950.45, 18992); var i: LongInt; begin for i := 1 to 4 do Memo1.Lines.Add(format('%m: %m', [values[i], EspecialRound(values[i])])); end;


Un saludo

Hola Bucanero, gracias.


Voy a probar tu código y confirmo por aquí si me funcionó o si tuve que modificarle algo, gracias por la información

[Oscar Guzmán]

Hola Bucanero,


Haciendo solo algunas modificaciones a mi código pude resolver el problema, en realidad fue facil partiendo del uso múltiple de trunc.


Muchas gracias por tu ayuda y por tu tiempo.



Coloco el código para que otros puedan aprovecharlo

Código Delphi [-]
  function EspecialRound(const value, FactorAprox : Currency) : Currency;
  var
    FactorAprox1 : real;
    begin
      FactorAprox1 := FactorAprox / 1000;
      Result := value / 1000;
      Result := Trunc(trunc(Result) + Frac(Result) / FactorAprox1) + 1;
      Result := 1000 * Result - (1000 - FactorAprox);
    end;