身(he)份(xie)证判断末尾大小写问题

MRyue · 发表于 2016-4-17 17:46:46

本帖最后由萧阳天于 2016-4-18 14:57 编辑

模块版本：5.30
所用系统：Win 7 64位
命令名称：时间_取身(he)份(xie)证判断()
BUG描述：末尾一定得小写字母不然返回假

QQ截图20160417174304.png

虽然是个小问题，但最好能修改一下，或者备注下只能小写，不然像我找了半天问题- -

yhx88888888 · 发表于 2017-2-21 15:08:59

有问题还要拿来学员学习

yhx88888888 · 发表于 2017-2-21 15:07:23

[img][/img]

yhx88888888 · 发表于 2017-2-21 14:54:46

.版本 2

.子程序时间_取***判断, 逻辑型, 公开, 判断***号是否正确
.参数 ***号码, 文本型
.局部变量前17, 文本型
.局部变量加权, 整数型, , "17"
.局部变量校验, 文本型, , "10"
.局部变量 i, 整数型
.局部变量和, 整数型
.局部变量校验位置, 整数型
.局部变量校验数字, 文本型
.局部变量结果, 文本型

.如果真 (取文本长度 (***号码) ≠ 18)
返回 (假)
.如果真结束
***号码＝到大写 (***号码)
前17 ＝取文本左边 (***号码, 17)
加权＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }
校验＝ { “1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2” }
.计次循环首 (17, i)
和＝和＋到整数 (取文本中间 (***号码, i, 1)) × 加权 <i>
.计次循环尾 ()
校验位置＝和％ 11
校验数字＝校验 [校验位置＋ 1]
结果＝前17 ＋校验数字
.如果 (***号码＝结果)
返回 (真)
.否则
返回 (假)
.如果结束
以上运行存在无效字符

liu307921917 · 发表于 2016-4-23 21:41:34

子程序名	返回值类型	公开	备注
时间_取***判断	逻辑型		判断***号是否正确
参数名	类型	参考	可空	数组	备注
***号码	文本型

变量名	类型	静态	数组	备注
前17	文本型
加权	整数型		17
校验	文本型		10
i	整数型
和	整数型
校验位置	整数型
校验数字	文本型
结果	文本型

如果真 (取文本长度 (***号码) ≠ 18)

返回 (假)
***号码＝到大写 (***号码)
前17 ＝取文本左边 (***号码, 17)
加权＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }
校验＝ { “1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2” }

计次循环首 (17, i)

和＝和＋到整数 (取文本中间 (***号码, i, 1)) × 加权 [i]

计次循环尾 ()
校验位置＝和％ 11
校验数字＝校验 [校验位置＋ 1]
结果＝前17 ＋校验数字

如果 (***号码＝结果)

返回 (真)

返回 (假)

liu307921917 · 发表于 2016-4-23 21:41:21

子程序名	返回值类型	公开	备注
时间_取***判断	逻辑型		判断***号是否正确
参数名	类型	参考	可空	数组	备注
***号码	文本型

变量名	类型	静态	数组	备注
前17	文本型
加权	整数型		17
校验	文本型		10
i	整数型
和	整数型
校验位置	整数型
校验数字	文本型
结果	文本型