Mensaje enviado por NROJAS@jjc.com.pe (Nestor Rojas Portaro)

Hola
Use este. Te dará menos dolores de cabeza.

Function Round(nNumero As Double, Optional nDecimales As Long = 0) As Double
    Round = Int((nNumero + 10 ^ (-nDecimales) / 2) * 10 ^ (nDecimales)) / (10 ^ (nDecimales))
End Function



From: "Ferré Gravoz, Manel" <FERREMNL@diba.es>
To: ">VB (E-mail)" <vb-esp@ccc.uba.ar>
Subject: vb-esp : Round Parte II
Date: Thu, 1 Feb 2001 14:22:24 +0100


SIGAMOS CON EL ROUND...

Investigaciones que he hecho..

Con dos decimales....

Round (10.445,2) --> 10.44
Round (10.665,2) --> 10.66

Los dos bajan ... perfecto!

Round (10.775,2) --> 10.76
Round (10.315,2) --> 10.32

Los dos suben Mierda!!

Con tres decimales

Round (10.4445,3) --> 10.445
Round (10.6665,3) --> 10.667

Los dos suben Perfecto!

Round (10.7545,3) --> 10.754
Round (10.3155,3) --> 10.316

Uno sube y el otro baja ... LA JODIMOS ¡!!!!!!


Se me han quitado las ganas de buscar el algoritmo que utiliza MicroCHOFT para utilizar el ROUND...

ALGUNA IDEA ¿????

Manf.