VBA/Excel/Access/Word/Data Type Functions/CInt

CInt() converts value to Integer

   <source lang="vb">

Sub intConvert()

   Debug.Print CInt(25 * 5.623)

End Sub

</source>
   
  

To ensure that a mathematical operation returns an integer data type, use the CInt() function

   <source lang="vb">

Sub floatValue()

   Dim val1 As Single
   Dim val2 As Single
   Dim val3 As Integer
   val1 = 3.14
   val2 = 6.63
   val3 = CInt(val1 * val2)

End Sub

</source>