Redondear a la alza?

[custo]

Buenas , quisiera saber como redondear un numero a la alza

Es decir, si pongo

3.05 -> 4
3.2 -> 4
3.6 -> 4

Gracias!

[mariano_donati]

Hola custo, la verdad es que no sé si vendrá una función que te permita hacer eso, pero acá hice una función que si lo puede hacer.

Function RoundNumber(NumberToRound)

Dim vRoundedNumber
Dim vIntNumber
Dim vRoundNumber

IntNumber = Int(NumberToRound)
RoundNumber = Round(NumberToRound)

If IntNumber = RoundNumber Then
RoundedNumber = IntNumber + 1
Else
RoundedNumber = RoundNumber
End If

RoundNumber = RoundedNumber

End Function

Espero que te sirva.
Saludos!.

[u_goldman]

je je Mariano, se nota luego luego que andas metido en .NET


Salu2,

[custo]

gracias mariano, pero tengo un problema, si le paso un numero entero, por ejemplo el 1, me devuelve 2

[custo]

bueno gracias igualmente, ya me he montado un apañete ;)

[mariano_donati]

Tenés razón, no me había percatado de ese detalle. Acá lo arreglé, espero que te sirva.

Function RoundNumber(NumberToRound)

If TypeName(NumberToRound) = "Double" Then
Dim vRoundedNumber
Dim vIntNumber
Dim vRoundNumber

IntNumber = Int(NumberToRound)
RoundNumber = Round(NumberToRound)

If IntNumber = RoundNumber Then
RoundedNumber = IntNumber + 1
Else
RoundedNumber = RoundNumber
End If
Else
RoundedNumber = NumberToRound
End If

RoundNumber = RoundedNumber

End Function

P.D. Si maestro!, hacia mucho tiempo la verdad que no me daba una vuelta por este foro. Estoy tratando de encaminarme para el lado de .Net con todas las ventajas que ofrece. Saludos U Goldman!.