计算sfz末尾验证码

yhywhh123

精易模块里只有校验身份证是否正确，却没有计算最后一位校验码。自己照着国家标准（GB-11643）身份证校验规则写了个。调用了精易模块~

  

子程序名	返回值类型	公开	备 注
时间_取身份证末尾	文本型		只支持18位身份证，需输入身份证前17位号码，自动算出第18位验证码
参数名	类 型	参考	可空	数组	备 注
IDCARD	文本型				身份证前17位
TYPE	整数型				为0时只返回校验码，非0时返回身份证18位，默认为0

变量名	类 型	静态	数组	备 注
xishu	整数型		17
sfz	文本型		17
linshi	整数型
sum	整数型
jiaoyan	文本型
yushu	整数型
i	整数型

判断 (文本_取长度 (IDCARD) ≠ 17)
jiaoyan ＝ “请输入sfz前17位”
xishu ＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }
计次循环首 (17, i)
文本_逐字分割 (IDCARD, sfz)
linshi ＝ xishu [i] × 到数值 (sfz [i])
sum ＝ sum ＋ linshi
计次循环尾 ()
yushu ＝ sum ％ 11
jiaoyan ＝ 多项选择 (yushu ＋ 1, “1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2”)
如果真 (TYPE ≠ 0)
jiaoyan ＝ IDCARD ＋ jiaoyan

返回 (jiaoyan)

.版本 2<br /> <br /> .子程序 时间_取身份证末尾, 文本型, , 只支持18位身份证，需输入身份证前17位号码，自动算出第18位验证码<br /> .参数 IDCARD, 文本型, , 身份证前17位<br /> .参数 TYPE, 整数型, 可空, 为0时只返回校验码，非0时返回身份证18位，默认为0<br /> .局部变量 xishu, 整数型, , "17"<br /> .局部变量 sfz, 文本型, , "17"<br /> .局部变量 linshi, 整数型<br /> .局部变量 sum, 整数型<br /> .局部变量 jiaoyan, 文本型<br /> .局部变量 yushu, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (文本_取长度 (IDCARD) ≠ 17)<br />     jiaoyan ＝ “请输入sfz前17位”<br /> .默认<br />     xishu ＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }<br />     .计次循环首 (17, i)<br />         文本_逐字分割 (IDCARD, sfz)<br />         linshi ＝ xishu <i> × 到数值 (sfz <i>)<br />         sum ＝ sum ＋ linshi<br />     .计次循环尾 ()<br />     yushu ＝ sum ％ 11<br />     jiaoyan ＝ 多项选择 (yushu ＋ 1, “1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2”)<br />     .如果真 (TYPE ≠ 0)<br />         jiaoyan ＝ IDCARD ＋ jiaoyan<br />     .如果真结束<br /> <br /> .判断结束<br /> 返回 (jiaoyan)

yyfuzu123

666666666666666666666666666666666666

龙傲天f

支持开源~！感谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

396384183

感谢分享

396384183

感谢分享

一指温柔

感谢分享

亿万

        支持开源~！感谢分享

君九

支持开源

深圳梦

支持开源~！感谢分享