例: CLng 関数

例 1

' Convert string to long
' Display value and data type
Dim nvar As Variant
Dim nstr As String
nstr = Inputbox("Number", "Enter any number", "0")
If Isnumeric(nstr) Then
	nvar = Clng(nstr)
	Messagebox nvar,, Typename(nvar)
Else
	Messagebox nstr,, "Not a number"
End Sub

例 2

' Convert Double and String values to Long, rounding up or down as indicated.
Dim x As Double, y as String
x# = 13.400556
Print CLng(x#)	'Prints 13

x# = 13.67
Print CLng(x#)	'Prints 14

y="1.345"
Print CLng(y)		'Prints 1

y="1.678"
Print CLng(y)		'Prints 2

y="string"
Print CLng(y)		'returns a type mismatch error