Redondear numero al mayor
1 Respuesta
Usa la función Round
MsgBox Round(5.5) ' 6
MsgBox Round(5.4) ' 5
También puedes usar Int o Fix como numero menor:
MsgBox Round(5.5) ' 6
MsgBox Int(5.5) ' 5
MsgBox Fix(5.5) ' 5
MsgBox Round(5.4) ' 5
MsgBox Int(5.4) ' 5
MsgBox Fix(5.4) ' 5
Referencia:
http://msdn.microsoft.com/es-es/library/xh29swte%28v=vs.80%29.aspx
http://msdn.microsoft.com/es-es/library/thc0a116%28v=vs.80%29.aspx
'---PARA ENTERO MAYOR---'
numero_mayor = Val(txtestacionfinal.Text)
entero_mayor = Fix(numero_mayor)
If entero_mayor < numero_mayor Then
entero_mayor = Fix(numero_mayor + 1)
!ESTACION_FINALR = entero_mayor
Else
!ESTACION_FINALR = entero_mayor
End If
'-----------------------'
Fijate amigo que ya idee una forma para redondear el mayor, muchas gracias, de cualquier manera me sirvió el FIX gracias!
