VFP 愛用者社區

yctsai · 註冊時間: 2003-04-11 文章: 180 第 1 樓

**aa6=user keyin得身分證字號

idid='10987654932210898765431320'
xdxd='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
x=substr(idid,at(substr(aa6,1,1),xdxd),1)
if x=' '
=messagebox('身分證字號錯誤',48,'訊息視窗')
return
endif
fdfd='187654321'
aa6=x+substr(aa6,2)
for i=1 to 9
y=y+val(substr(aa6,i,1))*val(substr(fdfd,i,1))
endfor
if mod(y,10)<>0
hh=10-mod(y,10)
else
hh=0
endif
if hh<>val(substr(aa6,10,1))
=messagebox('身分證字號錯誤',48,'訊息視窗')
return
endif