木子屋
 

标题: 检测整数和长整数的函数

作者: dnawo

日期: 2007-11-05 09:19 AM

分类: Web编程

内容: <%
'检测字符串是否是整数
Function Is_Int(a_str)
    If not isnumeric(a_str) or len(a_str) > 5 Then
        Is_Int = false
        Exit Function
    Elseif len(a_str) < 5 then
        Is_Int = true
        Exit Function
    End if
    If cint(left(a_str , 4)) > 3276 Then
        Is_Int = false
        Exit Function
    Elseif cint(left(a_str , 4)) = 3276 And cint(right(a_str , 1)) > 7 Then
        Is_Int = false
        Exit Function
    Else
        Is_Int = true
        Exit Function
    End if
End Function
'检测是否是长整数
Function Is_Lng(a_str)
    If not isnumeric(a_str) or len(a_str) > 10 Then
        Is_Lng = false
        Exit Function
    Elseif len(a_str) < 10 Then
        Is_Lng = true
        Exit Function
    End If
    If clng(left(a_str , 9)) > 214748367 Then
        Is_Lng = false
        Exit Function
    Elseif clng(left(a_str , 9)) = 214748367 And clng(right(a_str , 1)) > 7 Then
        Is_Lng = false
        Exit Function
    Else
        Is_Lng = true
        Exit Function
    End If
End Function
%>

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

标题: 检测整数和长整数的函数

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms