yctsai
註冊時間: 2003-04-11 文章: 179
第 1 樓
|
發表於: 星期五 四月 11, 2003 11:05 pm 文章主題: 身分證檢查程式 |
|
|
**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 |
|