Devuelve una expresión que se ha convertido en una variante de subtipo Integer.
Sintaxis
CInt(expression)
Observaciones
El argumento expression es cualquier expresión válida.
Utilice la función CInt para proporcionar conversiones de alcance internacional de cualquier otro tipo de dato a un subtipo Integer. Por ejemplo, se reconocen correctamente distintos separadores decimales en función de la configuración regional del sistema, al igual que diferentes separadores de miles.
Si la expresión se encuentra fuera del rango aceptable para el subtipo Integer, se produce un error.
En el siguiente ejemplo se utiliza la función CInt para convertir un valor en Integer:
Ejemplo 1:
Dim MyDouble, MyInt MyDouble = 2345.5678 MyInt = CInt(MyDouble) 'Output: 2346
Ejemplo 2:
Dim MyString MyString = "12345.67" MyInt = CInt(MyString) 'Output: 12346
Ejemplo 3:
MyDouble = 2.6 MyInt = CInt(MyDouble) 'Output: 3
Ejemplo 4:
MyDouble = 2.4 MyInt = CInt(MyDouble) 'Output: 2
Ejemplo 5:
MyDouble = 1.5 MyInt = CInt(MyDouble) ' 1.5 rounds to 2(nearest even integer) 'Output: 2
Ejemplo 6:
MyDouble = 0.5 MyInt = CInt(MyDouble) ' 0.5 rounds to 0(nearest even integer) 'Output: 0
Nota:
CInt difiere de las funciones Fix e Int, que truncan, en lugar de redondear, la parte fraccionaria de un número. Cuando la parte fraccionaria es exactamente 0,5, la función CInt siempre la redondea al número par más cercano. Por ejemplo, 0,5 se redondea a 0 y 1,5 se redondea a 2.