Redondear a numero entero mayor

[antonio2005pe]

Hola todos,

Busque en el foro pero no encontre algo similar, Mi duda era como redondear al numero entero a mayor.

ejemplo:

0.01 que arroje 1
0.1 que arroje 1
0.99 que arroje 1
1 que arroje 1
1.01 que arroje 2
1.4 que arroje 2
1.5 que arroje 2
1.6 que arroje 2
1.99 que arroje 2

en excel utilizo la funcion REDONDEAR.MAS(numero,0)

se entiende?

Gracias.

[jsstoni]

https://msdn.microsoft.com/en-us/library/zx4t0t48.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

[antonio2005pe]

Iniciado por jsstoni

https://msdn.microsoft.com/en-us/library/zx4t0t48.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

muchas gracias por la respuesta, no sabia que eso se llamaba ceiling pero aqui igual les dejo un codigo que encontre para solucionarlo por si alguien necesita

Código:

Private Function Ceiling(ByVal X As Double) As Long
   Ceiling = -Int(X * (-1))
End Function

[pkj]

Que curioso. Nunca se me habria ocurrido. No me habia dado cuenta de que la función int() redondea hacia arriba los números negativos.

Yo hubiera simplificado asi:
If Int(numero) < numero Then numero = Int(numero) + 1

o como mucho asi:
numero = IIf(Int(numero) < numero, Int(numero) + 1, numero)

Pero esa seguro que es más rápida y pesa menos.

Saludos

[truskyvb]

No sé si tiene algo que ver con la función Celling. Yo lo resuelvo de la siguiente forma, muy simple:

Text1.Text = 1,49 o menor que lo redondea a 1 o 1,50 o mayor, que lo rendondea a 2.

Private Sub Command1_Click()
Text1 = CInt(Text1)
End Sub