La función CInt convierte un decimal a un número entero.
La sintaxis de la función CInt es:
CInt (expresión)
Siendo “expresión” el valor que se desea convertir en un entero.
Se aplica para Excel 2013, Excel 2011 para Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000 y sólo se puede utilizar en código de VBA.
Si el entero del decimal es “0” o par:
<=0.5; el resultado será redondeado a la baja, en este caso “0”.
>0.5; el resultado será redondeado a “1”.
Si el entero del decimal es impar:
<3.5; el resultado será redondeado a la baja, en este caso “3”.
>=3.5; el resultado será redondeado a “4”.
Ejemplo1:
Como vemos en este caso al decimal 748.7 la función Cint redondeará a 749 por ser mayor a 748.5
Ejemplo2:
En este caso vemos que la función CInt redondea a la baja el decimal 517.25 a solamente 517, por no ser mayor o igual a 517.5.
Ejemplo3:
24.5; es redondeado a la baja, en este caso 24 , aunque de haber sido 24.5000001 hubiese bastado para que sea redondeado a 25.
Finalmente paso a mostrarles el código vba del formulario:
Private Sub CommandButton1_Click()
TextBox1.Text = True
TextBox2.Text = True
End Sub
Private Sub TextBox1_Change()
TextBox1.Text = Left((Rnd * 100), 4)
End Sub
Private Sub TextBox2_Change()
TextBox2.Text = CInt(TextBox1.Text)
If Int(TextBox1.Text) = TextBox2.Text Then
TextBox2.ForeColor = RGB(0, 0, 200)
Else
TextBox2.ForeColor = RGB(200, 0, 0)
End If
End Sub
Descargar ejemplo de Function CInt
Elaborado por: Salas Miguel A.
9 comentarios
Escriba un comentario →