Visual Basic - Redondeo de un numero

Life is soft - evento anual de software empresarial
 
Vista:

Redondeo de un numero

Publicado por iverson (15 intervenciones) el 21/10/2003 13:40:57
Hola,
Necesito que alguien me diga cual es la función que redondea por EXCESO un nº.
Esto es, si se tiene 3,2 ponga 4 y si es 4,7 ponga 5
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Redondeo de un numero

Publicado por Pedro Luis (878 intervenciones) el 21/10/2003 18:02:47
Creo que asi siempre redondeará por exceso
Round(N+0.5,0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Redondeo de un numero

Publicado por Pedro Luis (878 intervenciones) el 21/10/2003 18:05:27
Perdón mejor así
Round(N+0.4,0), pues en el caso de que no tenga decimales daría una unidad más
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Redondeo de un numero

Publicado por Victor (47 intervenciones) el 21/10/2003 18:06:13
Usa esta funcion:

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

text1.Text = Redondear(text1.Text)

Ojala te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar