程序博客网 > 送货单打印软件免费

验证整数

来源：互联网发布：送货单打印软件免费编辑：程序博客网时间：2024/05/18 03:12

Function IsInt(str)

If IsNumeric(str) or (len(str)>5) then

IsInt=False

Exit Function

Else

If (len(str)<5) then

IsInt=True

Exit Function

Else

If CInt(left(str,4))>3276 then

IsInt=False

Exit Function

Else

If CInt(Left(str,4))=3276 and CInt(Right(str,1))>7 then

IsInt=False

Exit Function

Else

IsInt=True

End If

End If

End If

End If

End Function

送货单打印软件免费

送货单打印软件免费

原创粉丝点击

热门问题 老师的惩罚人脸识别我在镇武司摸鱼那些年重生之率土为王我在大康的咸鱼生活盘龙之生命进化天生仙种凡人之先天五行春回大明朝姑娘不必设防，我是瞎子东莞雁田雁田雁田招聘信息雁皇雁皇羽绒服雁皇家纺雁皇羽绒服女款雁翅刀雁翅雁翎雁翔路附近酒店蒙古舞鸿雁形体舞鸿雁分解动作专业老师民族舞鸿雁雁行鱼肠雁足雁足传书雁门雁门胡人歌雁门清高雁门冰菊八月里来雁门开八月里来雁门开下一句嫡女青岚秋雁门我所思兮在雁门庶女难嫁秋雁门韩城沟北村高娜梅雁门照雁阵雁阵惊寒秦岭雁阵雁阵模式鱼雁鲜通雁断鱼沈鱼贯雁比鱼先生雁鱼先生鱼鱼雁是什么意思雁鹅雁鹅的饲养雁鹅图片