易语言采用固定算法使个人旧15位身份证升级到18位。
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定,公民身份号码是特征组合码,由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为:六位数字地址码,八位数字出生日期码,三位数字顺序码和一位数字校验码。
地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日,其中年份用四位数字表示,年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内,对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性,偶数分给女性。校验码是根据前面十七位数字码,按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。
15位的身份证编码首先把出生年扩展为4位,简单的就是增加一个19,但是这对于1900年出生的人不使用(这样的寿星不多了)
某公民身份号码本体码为310103771130162,首先按照公式计算:
∑(ai×Wi)(mod 11)……………………………………(1)
i----表示号码字符从由至左包括校验码在内的位置序号;
ai----表示第i位置上的号码字符值;
Wi----示第i位置上的加权因子,其数值依据公式Wi=2(n-1)(mod 11)计算得出。
i 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1
ai 3 4 0 5 2 4 1 9 8 0 0 1 0 1 0 0 1 a1
Wi 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2 1
ai×Wi 21 36 0 25 16 16 2 9 48 0 0 9 0 5 0 0 2 a1
根据公式进行计算:
∑(ai×Wi) =(21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189
189 ÷ 11 = 17 + 2/11
∑(ai×Wi)(mod 11) = 2
然后根据计算的结果,从下面的表中查出相应的校验码,其中X表示计算结果为10:
∑(ai×WI)(mod 11) 0 1 2 3 4 5 6 7 8 9 10
校验码字符值ai 1 0 X 9 8 7 6 5 4 3 2
根据上表,查出计算结果为2的校验码为所以该人员的公民身份号码应该为310103197711301627。
十五位到十八位
.版本 2 .子程序 十五位到十八位, 文本型 .参数 十五位号, 文本型 .局部变量 临时数值, 整数型 .局部变量 数量, 整数型 .局部变量 位数, 文本型 .局部变量 临时文本, 文本型 临时文本 = 取文本左边 (十五位号, 6) + “19” + 取文本右边 (十五位号, 9) .变量循环首 (18, 2, -1, 临时数值) 数量 = 数量 + (求次方 (2, 临时数值 - 1) % 11) × 到数值 (取文本中间 (临时文本, 19 - 临时数值, 1)) .变量循环尾 () 数量 = 数量 % 11 .判断开始 (数量 = 0) ' 如果数量 = 0 则位 = “1” 位数 = “1” .判断 (数量 = 1) ' 如果数量 = 1 则位 = “0” 位数 = “0” .判断 (数量 = 2) ' 如果数量 = 2 则位 = “X” 位数 = “X” .默认 ' 去掉空格 位数 = 删首尾空 (到文本 (12 - 数量)) .判断结束 返回 (临时文本 + 位数)
调用执行
窗口放置两个编辑框,一个输入15位旧身份证,一个显示18新的身份证。
.版本 2 .子程序 _计算图形按钮_被单击 .如果 (取文本长度 (十五位编辑框.内容) ≠ 15) 十五位编辑框.获取焦点 () 十八位编辑框.内容 = “号码位数不正确” 十五位编辑框.被选择字符数 = -1 .否则 十八位编辑框.内容 = 十五位到十八位 (十五位编辑框.内容)