|
|
(原创)一个判断字符串的数值类型 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
支持判断返回任何数值型的类型数据:
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
|
|
相关文章:相关软件: |
|