' 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

関連項目

CLng 関数

用語集