定义时不声明具体就是变体类型(variant),用typename得到的type name是“empty”
这种类型的变量,什么类型的数据都能存储比如:
Dim var
Dim sType As String
sType = TypeName(var)‘Empty
var = 100
sType = TypeName(var)’Integer
var = "abc"
sType = TypeName(var) ‘String
如果你不确认字符串是否是合法的数值,可以用val函数
这个函数可以取回字符串中有效的数字,比如
var = Val("123abc")'var=123
sType = TypeName(var)'Double
如果确认字符串是有效的数值可以用
cint,clng等来转换
或者转换前用IsNumeric 来检测字符串是否是有效的数值
用Val函数吧,未定义变量类型为variant类型。
使用强制转化类型
比如
dim a as string
int(a)
CDbl( string类型变量.Text)
Debug.Print Int(Val(Text1.Text))