Test Foro de elhacker.net SMF 2.1

Programación => Programación General => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: Leiray en 10 Agosto 2017, 19:45 PM

Título: Redondear Multiplos
Publicado por: Leiray en 10 Agosto 2017, 19:45 PM
Saludos Foro VB.NET

Estoy buscando una fórmula para redondear un número en exceso por el multiplo que se desee. Algo así como la función de excel REDOND.MULT. Espero que alguien me pueda ayudar en eso.

Gracias
Título: Re: Redondear Multiplos
Publicado por: TickTack en 10 Agosto 2017, 22:19 PM
A que te referies con "número en exceso"?

Saludos
Título: Re: Redondear Multiplos
Publicado por: Serapis en 11 Agosto 2017, 02:53 AM
Tienes varias opciones de redondeo...

La función adecuada depende de como esperes que responda, también con los números negativos.

Si Siempre ha de ser por exceso, la función es Ceiling.
Si lo que deseas es un redondeo al número más próximo, la función es Round.
Si siempre ha de ser la parte entera (eliminar los decimales), la función es Fix.
Si siempre ha de ser el valor más bajo, la función es Int, o Floor.

Aquí un ejemplo de prueba y comentado el resultado que arroja:
Código (vbnet) [Seleccionar]
Dim x as single, y as integer
       x = 15.62
       y = Int(x) ' 15
       y = Fix(x) ' 15
       y = Math.Ceiling(x) ' 16
       y = Math.Floor(x)   ' 15
       y = Math.Round(x)   ' 16

       x = 15.32
       y = Int(x) ' 15
       y = Fix(x) ' 15
       y = Math.Ceiling(x) ' 16
       y = Math.Floor(x)   ' 15
       y = Math.Round(x)   ' 15

       x = -15.62
       y = Int(x) ' -16
       y = Fix(x) ' -15
       y = Math.Ceiling(x) ' -15
       y = Math.Floor(x)   ' -16
       y = Math.Round(x)   ' -16

       x = -15.32
       y = Int(x) ' -16
       y = Fix(x) ' -15
       y = Math.Ceiling(x) ' -15
       y = Math.Floor(x)   ' -16
       y = Math.Round(x)   ' -15



p.d.: Para hacelro con un múltiplo (si mal no entendí, ya me dirás)... sería así un ejemplo:
Código (vbnet) [Seleccionar]

X = (20\(20\3)) * Math.ceiling(20/3)
(20\6) = 3
(20/3) = 6.6666 : Math.Ceiling(6.66666) = 7
x = (3 * 7) = 21
Título: Re: Redondear Multiplos
Publicado por: Leiray en 13 Agosto 2017, 02:11 AM
Gracias a todos. Resolví con este.

Código (vbnet) [Seleccionar]
Dim RoundXMultiple As Integer
RoundXMultiple = Math.Round(Num / Múltiplo) * Múltiplo