Programación General > Visual Basic 6.0 e inferiores

 Redondeo En Vb6

(1/2) > >>

pigar_69:
Hola, necesito redondear una cifra decimal al decimal mas cercano. Es decir, tengo por ejemplo 14,2 y quiero redondear a 14,0, si tengo 14,3 hasta 14,7 redondear a 14,5 y si es superior a 14,7 redondear a 15 y asi sucesivamente....

No se si me he explicado bien, gracias y un saludo.

ElNapster:

--- Código: Text ---Dim a As Integera = 12.2c = Round(a) 
 :comp:

ROBER.29:
Hola,

Para eso puedes utilizar la función CInt().


--- Código: Text ---  Resultado = CInt(50.8)    ' Devuelve 50.Resultado = CInt(-50.8)   ' Devuelve -50.Resultado = CInt(-50.2)   ' Devuelve -50.   
Un saludo.

pigar_69:
No me habeis entendido o yo no me he explicado bien, con lo que me habeis dicho redondeo a la parte entera. Yo lo que quiero es si el valor es 14,3 el redondeo quiero que se haga a 14,5 y si el valor es 14,2 el redondeo sea 14,0. Redondear al decimal mas cercano, no al entero.

Gracias por vuestra respuesta. Un saludo.

Yañez:

--- Citar ---No me habeis entendido o yo no me he explicado bien, con lo que me habeis dicho redondeo a la parte entera. Yo lo que quiero es si el valor es 14,3 el redondeo quiero que se haga a 14,5 y si el valor es 14,2 el redondeo sea 14,0. Redondear al decimal mas cercano, no al entero.

--- Fin de la cita ---

Creo que lo quieres no es redondear al decimal más cercano sino efectuar aproximaciones cada 1/2 (0,5)...

Osea 14,0 - 14,5 - 15,0 - 15,5 y así sucesivamente...

Pues no creo que haya funciones para realizar eso ("creo"), supongo que tendrás que obtener la parte decimal y en base a eso aproximar el número a donde corresponda...

Navegación

[0] Índice de Mensajes

[#] Página Siguiente