时间_取身｜份｜证判断 命令改善建议

小爬虫

原有命令只是判断长度和日期的合法性，而未有判断身｜份｜证的有效性！！
建议增加按如下：身｜份｜证校验码计算公式及实例计算_百度经验http://jingyan.baidu.com/article/ff4116259e0a7112e48237b9.html方式 来判断身｜份｜证的有效性，代码我就不贴了

1096320695

66666666666666666666666666666666666

Alexjylt

支持一个！！！

aqwly

小爬虫

给出我的修改版吧,这个命令要大改....

  

子程序名	返回值类型	公开	备 注
时间_***有效性判断	整数型		判断***号是否正确.返回0为正确,其他均为错误
参数名	类 型	参考	可空	数组	备 注
***号	文本型

变量名	类 型	静态	数组	备 注
长度	整数型
乘数	整数型		0
和	整数型
计次	整数型

***号 ＝ 到小写 (***号)
长度 ＝ 取文本长度 (***号)
如果真 (长度 ≠ 18 且 长度 ≠ 15)
返回 (1)  ' 信息框 (“***号码长度非法！”, #错误图标, )

如果真 (长度 ＝ 15)
如果真 (到数值 (取文本中间 (***号, 9, 2)) ≥ 13 或 到数值 (取文本中间 (***号, 9, 2)) ＝ 0)
返回 (5)  ' 月份大于12个月3201057302

如果真 (到数值 (取文本中间 (***号, 11, 2)) ≥ 32 或 到数值 (取文本中间 (***号, 11, 2)) ＝ 0)
返回 (6)  ' 日子大于32天
返回 (0)

如果真 (到数值 (取文本中间 (***号, 7, 4)) ≤ 1900 或 到数值 (取文本中间 (***号, 7, 4)) ≥ 2030)
' 输出调试文本 (取文本中间 (***号, 9, 2))
返回 (4)  ' 年份小于1900年,大于2030年
如果真 (到数值 (取文本中间 (***号, 11, 2)) ≥ 13 或 到数值 (取文本中间 (***号, 11, 2)) ＝ 0)
' 输出调试文本 (取文本中间 (***号, 11, 2))
返回 (5)  ' 月份大于12个月
如果真 (到数值 (取文本中间 (***号, 13, 2)) ≥ 32 或 到数值 (取文本中间 (***号, 13, 2)) ＝ 0)
' 输出调试文本 (取文本中间 (***号, 13, 2))
返回 (6)  ' 日子大于32天

乘数 ＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }
计次循环首 (17, 计次)
和 ＝ 和 ＋ 到整数 (取文本中间 (***号, 计次, 1)) × 乘数 [计次]
计次循环尾 ()
和 ＝ 和 ％ 11
判断 (多项选择 (和 ＋ 1, “1”, “0”, “x”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2”) ＝ 取文本右边 (***号, 1))
返回 (0)  ' 正确返回0
返回 (7)  ' 未通过有效性校验

.版本 2<br /> <br /> .子程序 时间_***有效性判断, 整数型, 公开, 判断***号是否正确.返回0为正确,其他均为错误<br /> .参数 ***号, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 乘数, 整数型, , "0"<br /> .局部变量 和, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> ***号 ＝ 到小写 (***号)<br /> 长度 ＝ 取文本长度 (***号)<br /> .如果真 (长度 ≠ 18 且 长度 ≠ 15)<br />     返回 (1)  ' 信息框 (“***号码长度非法！”, #错误图标, )<br /> .如果真结束<br /> <br /> .如果真 (长度 ＝ 15)<br />     .如果真 (到数值 (取文本中间 (***号, 9, 2)) ≥ 13 或 到数值 (取文本中间 (***号, 9, 2)) ＝ 0)<br />         返回 (5)  ' 月份大于12个月3201057302<br />     .如果真结束<br /> <br />     .如果真 (到数值 (取文本中间 (***号, 11, 2)) ≥ 32 或 到数值 (取文本中间 (***号, 11, 2)) ＝ 0)<br />         返回 (6)  ' 日子大于32天<br />     .如果真结束<br />     返回 (0)<br /> .如果真结束<br /> <br /> .如果真 (到数值 (取文本中间 (***号, 7, 4)) ≤ 1900 或 到数值 (取文本中间 (***号, 7, 4)) ≥ 2030)<br />     ' 输出调试文本 (取文本中间 (***号, 9, 2))<br />     返回 (4)  ' 年份小于1900年,大于2030年<br /> .如果真结束<br /> .如果真 (到数值 (取文本中间 (***号, 11, 2)) ≥ 13 或 到数值 (取文本中间 (***号, 11, 2)) ＝ 0)<br />     ' 输出调试文本 (取文本中间 (***号, 11, 2))<br />     返回 (5)  ' 月份大于12个月<br /> .如果真结束<br /> .如果真 (到数值 (取文本中间 (***号, 13, 2)) ≥ 32 或 到数值 (取文本中间 (***号, 13, 2)) ＝ 0)<br />     ' 输出调试文本 (取文本中间 (***号, 13, 2))<br />     返回 (6)  ' 日子大于32天<br /> .如果真结束<br /> <br /> 乘数 ＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 }<br /> .计次循环首 (17, 计次)<br />     和 ＝ 和 ＋ 到整数 (取文本中间 (***号, 计次, 1)) × 乘数 [计次]<br /> .计次循环尾 ()<br /> 和 ＝ 和 ％ 11<br /> .判断开始 (多项选择 (和 ＋ 1, “1”, “0”, “x”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2”) ＝ 取文本右边 (***号, 1))<br />     返回 (0)  ' 正确返回0<br /> .默认<br />     返回 (7)  ' 未通过有效性校验<br /> .判断结束