Ver Mensaje Individual
  #5 (permalink)  
Antiguo 29/01/2015, 08:07
truskyvb
 
Fecha de Ingreso: octubre-2008
Mensajes: 188
Antigüedad: 15 años, 6 meses
Puntos: 3
Respuesta: Redondear a numero entero mayor

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