CLng Function Example

This example uses the CLng function to convert a value to a Long.

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45: MyVal2 = 25427.55    ' MyVal1, MyVal2 are Doubles.
MyLong1 = CLng(MyVal1)    ' MyLong1 contains 25427.
MyLong2 = CLng(MyVal2)    ' MyLong2 contains 25428.