Problema con RoundTo en .NET

[[Al González]]

¡Hola a todos!

Haciendo memoria (y pruebas adicionales), me vienen a la mente las dos principales razones por las cuales descarté hace tiempo el uso de las funciones SetRoundMode y RoundTo para redondear números que caían “en medio”. Una de las razones es la pérdida de precisión que ocurre al manejar valores Extended, siendo que el parámetro AValue de RoundTo es Double (y por lo cual parece redondear 2.55 como 2.5 en lugar de 2.6 cuando se utiliza rmNearest).

Pero la razón de mayor peso es el comportamiento de RoundTo al aplicar las constantes rmUp y rmDown (redondeo hacia el infinito positivo y negativo, respectivamente):

No aplica el redondeo en función de la “mitad decisiva”, siempre sube o siempre baja. Es un típico ceil / floor, lo cual podemos comprobar con el siguiente código:

Código Delphi [-]
Var
  D1, D2 : Double;
Begin
  D1 := 1.231;

  SetRoundMode (rmUp);
  D2 := RoundTo (D1, -2);
  ShowMessage (FloatToStr (D2));

  D1 := -1.231;

  SetRoundMode (rmDown);
  D2 := RoundTo (D1, -2);
  ShowMessage (FloatToStr (D2));

  D1 := 1.239;

  SetRoundMode (rmDown);
  D2 := RoundTo(D1, -2);
  ShowMessage (FloatToStr (D2));

  D1 := -1.239;

  SetRoundMode (rmUp);
  D2 := RoundTo(D1, -2);
  ShowMessage (FloatToStr (D2));

Ahora mi duda es si todos los tipos de redondeo a los que se refiere el estándar IEEE 754 tienen que ver con los casos donde un número cae en medio y no como RoundTo lo hace.

Al González.