Problema con RoundTo en .NET

[TinkerBell]

Buenos días,

Espero que puedan ayudarme en mi problema, ya que después de buscar en los foros no he encontrado solución para él.
Estoy haciendo un servicio Web en .NET con Delphi 2006 contra base de datos MySQL. Al calcular el valor de un importe e intentar redondear a dos decimales con la función RoundTo me ocurre lo siguiente, si yo tengo el valor:

123.225 y hago RoundTo(123.225,-2) me devuelve 123.22 cuando el valor correcto seria 123.23. ¿Como puedo hacer para que me redondee al alza como seria lo correcto?

Muchas gracias de antemano, Un saludo

[[Al González]]

¡Hola a todos!

Empezado por TinkerBell

...123.225 y hago RoundTo(123.225,-2) me devuelve 123.22 cuando el valor correcto seria 123.23. ¿Como puedo hacer para que me redondee al alza como seria lo correcto?...

Bueno, en realidad lo "correcto" depende del tipo de redondeo que deba aplicarse según la normativa vigente en cada país y en cada ámbito (financiero, científico, etc.).

Como en Delphi Win32 no existe una previsión seria al respecto, me di a la tarea de desarrollar algunas funciones que facilitan el redondeo de cinco posibles formas:
1. Del banquero (al par más cercano): -2.5 ≈ -2, -1.5 ≈ -2, 1.5 ≈ 2, 2.5 ≈ 2
2. Hacia el cero: -2.5 ≈ -2, -1.5 ≈ -1, 1.5 ≈ 1, 2.5 ≈ 2
3. Hacia el infinito: -2.5 ≈ -3, -1.5 ≈ -2, 1.5 ≈ 2, 2.5 ≈ 3
4. Hacia el infinito positivo: -2.5 ≈ -2, -1.5 ≈ -1, 1.5 ≈ 2, 2.5 ≈ 3
5. Hacia el infinito negativo: -2.5 ≈ -3, -1.5 ≈ -2, 1.5 ≈ 1, 2.5 ≈ 2

Imagino que cuando Microsoft desarrolló la amplia y sofisticada biblioteca de clases (framework) de .NET, tuvo a bien incluir algunas clases o métodos que faciliten estos cinco posibles tipos de redondeo (quiero pensar que tuvo la mínima visión global para considerarlo ). Sería cosa de indagar en la biblioteca de clases de .NET.

Un abrazo redondo.

Al González.

P.D. Edité los nombres de los cinco tipos de redondeo para hacerlos más intuitivos y acordes a como aparecen en Wikipedia.

[[Al González]]

¡Hola a todos!

Empezado por Al González

...Imagino que cuando Microsoft desarrolló la amplia y sofisticada biblioteca de clases (framework) de .NET, tuvo a bien incluir algunas clases o métodos que faciliten estos cinco posibles tipos de redondeo (quiero pensar que tuvo la mínima visión global para considerarlo )...

Pues que desagradable sorpresa : Parece que los arquitectos de .NET no visualizaron esta importante necesidad sino hasta la versión 2.0 de .NET, pero no del todo, ya que sólo incluyeron redondeo del banquero y hacia el infinito (el cual ni siquiera está reconocido por el estándar IEEE 754).

Y no parece haber esperanzas de que los otros tres tipos de redondeo estén incluidos en la versión 3. ¡Caramba, qué hacen los asesores de Microsoft!

Un abrazo incompleto.

Al González.

[roman]

Empezado por Al González

Como en Delphi Win32 no existe una previsión seria al respecto

No entiendo a qué te refieres. La función RoundTo, por defecto, usa el redondeo del banquero:

Empezado por ayuda de Delphi

RoundTo uses “Banker’s Rounding” to determine how to round values that are exactly midway between the two values that have the desired number of significant digits. This method rounds to an even number in the case that AValue is not nearer to either value.

Pero, como la misma ayuda dice, el método de redondeo se puede cambiar:

Empezado por ayuda de Delphi

Note: The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.

Y estas son las posibilidades:

Empezado por ayuda de Delphi

rmNearest -Rounds to the closest value. (banquero)
rmDown - Rounds toward negative infinity. (infinito negativo)
rmUp - Rounds toward positive infinity. (infinto positvo)
rmTruncate - Truncates the value, rounding positive numbers down and negative numbers up. (a cero)

Sólo faltaría el que, como mencionas, no es parte del estándar, pero que fácilmente se puede implementar con:

Sign(n)*Round(Abs(n));

usdando el método de infinito positivo.

// Saludos

[[Al González]]

¡Hola a todos!

Tienes toda la razón Román. Al menos en teoría. Lo que sucede es que ya intenté utilizar las funciones Set8087CW y SetRoundMode sin obtener el resultado que la misma ayuda refiere.

¿Podrías probarlas en tu estación de trabajo para verificar lo que digo? Tal vez se me pasó algo.

Gracias.

Un abrazo expectante.

Al González.

[roman]

¿Mi estación de trabajo? ¡Vaya nombre elegante para mi laptop en un escritorio desordenado, acompañado de un frasco de cacahuates, pero en fin

Pues probarlas, lo hice justo antes de responder este mensaje. Claro que mis pruebas se redujeron a los valores ejemplo que pusiste, pero no sési haga falta más.

// Saludos

[[Al González]]

OK

Voy a probar nuevamente. No te despegues de los cacahuates, regreso en unos minutos...

Al.