关于身份证的检查约束的代码
答案:1 悬赏:60 手机版
解决时间 2021-05-09 13:18
- 提问者网友：雪舞兮
- 2021-05-08 22:08
关于身份证的检查约束的代码
最佳答案
- 五星知识达人网友：夜余生
- 2021-05-08 22:30
function iscode(n)
iscode=true
n=trim(n)
if len(n)=15 or len(n)=18 then
else
iscode=false
exit function
end if
dim i,c
i=1
while len(n)>=i
c=mid(n,i,1)
if (c>="0" and c<="9") or c="x" or c="X" then
if (c="x" or c="X") and i<18 then
iscode=false
exit function
end if
else
iscode=false
exit function
end if
wend
dim y,m,d
y=mid(n,7,4)
m=mid(n,11,2)
d=mid(n,13,2)
if isdate(y & "-" & "m" & "-" & d)=false then iscode=false
end function
iscode=true
n=trim(n)
if len(n)=15 or len(n)=18 then
else
iscode=false
exit function
end if
dim i,c
i=1
while len(n)>=i
c=mid(n,i,1)
if (c>="0" and c<="9") or c="x" or c="X" then
if (c="x" or c="X") and i<18 then
iscode=false
exit function
end if
else
iscode=false
exit function
end if
wend
dim y,m,d
y=mid(n,7,4)
m=mid(n,11,2)
d=mid(n,13,2)
if isdate(y & "-" & "m" & "-" & d)=false then iscode=false
end function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯