一個(gè)判斷字符串的數(shù)值分類(lèi)
發(fā)表時(shí)間：2024-05-18 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]支持判斷返回任何數(shù)值型的類(lèi)型數(shù)據(jù)： Function GetNumType(sVal) Dim sType If Not IsNumeric(sVal) Then GetNumType="Unknow" Exit Function End If Execute "sT...
支持判斷返回任何數(shù)值型的類(lèi)型數(shù)據(jù)：
Function GetNumType(sVal)
Dim sType
If Not IsNumeric(sVal) Then
GetNumType="Unknow"
Exit Function
End If
Execute "sType=TypeName("&sVal&")"
GetNumType=sType
End Function
測(cè)試：
Response.Write GetNumType("9999") '返回：Integer
Response.Write GetNumType("999999999") '返回：Long
Response.Write GetNumType("99999999999999") '返回：Double
Response.Write GetNumType("asdfasd") '返回：Unknow
