支持判断返回任何数值型的类型数据:
Function GetNumType(sVal)
Dim sType
If Not IsNumeric(sVal) Then
GetNumType="Unknow"
Exit Function
End If
Execute "sType=TypeName("&sVal&")"
GetNumType=sType
End Function
测试:
Response.Write GetNumType("9999") '返回:Integer
Response.Write GetNumType("999999999") '返回:Long
Response.Write GetNumType("99999999999999") '返回:Double
Response.Write GetNumType("asdfasd") '返回:Unknow
Function GetNumType(sVal)
Dim sType
If Not IsNumeric(sVal) Then
GetNumType="Unknow"
Exit Function
End If
Execute "sType=TypeName("&sVal&")"
GetNumType=sType
End Function
测试:
Response.Write GetNumType("9999") '返回:Integer
Response.Write GetNumType("999999999") '返回:Long
Response.Write GetNumType("99999999999999") '返回:Double
Response.Write GetNumType("asdfasd") '返回:Unknow
博客展示了一个支持判断返回任何数值型类型数据的函数GetNumType。该函数会先判断输入值是否为数值,若不是则返回Unknow,若是则通过TypeName获取其类型。还给出了不同输入值的测试结果,如整数、长整数、双精度数及非数值的情况。
1051

被折叠的 条评论
为什么被折叠?



