Redondear | Redondeo | Excel | Php | Javascript | Sql | Visual Basic | .NET | ASP | c++ | Delphi | Perl | ActionScript | CSS |
Redondear visualbasic
Aplicable a Microsoft Visual Basic 5, Visual Basic 6
Utilice la siguiente rutina para redondear un número. Le devolverá el número redondeado en formato Double con tantos decimales como indique en el parámetro 'intCntDec'.
Codigo:
Public Function Redondear (dblnToR As Double,_
Optional intCntDec As Integer) As Double
Dim dblPot As Double
Dim dblF As Double
If dblnToR < 0 Then dblF = -0.5 Else: dblF = 0.5
dblPot = 10 ^ intCntDec
Redondear = Fix(dblnToR * dblPot * (1 + 1E-16) + dblF) / dblPot
End Function
Teoría del Redondeo:
Las reglas del redondeo se aplican al número decimal situado en la siguiente posición al número de decimales que se quiere transformar.
Si tenemos un número de 3 decimales y queremos redondear a 2, se aplicará las reglas de redondeo:
Dígito menor que 5: Si el siguiente decimal es menor que 5, el anterior no se modifica.
Ejemplo de como redondear: 10,512. Redondeando a 2 decimales deberemos tener en cuenta el tercer decimal: 10,512= 10,51.
Dígito mayor que 5: Si el siguiente decimal es mayor o igual que 5, el anterior se incrementa en una unidad.
Ejemplo de como redondear: 10,518. Redondeando a 2 decimales deberemos tener en cuenta el tercer decimal: 10,518= 10,52.