Create Or Replace Function IDCARD15TO18(CARD Varchar2) Return Varchar2 Is Type TIARRAY Is Table Of Integer; Type TCARRAY Is Table Of Char(1); RESULTS Varchar2(18); W TIARRAY; -- 数字数组 A TCARRAY; -- 字符数组 S Integer; Begin If CARD Is Null Then Return ''; End If; If LENGTH(CARD) <> 15 Then Return CARD; End If; W := TIARRAY(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1); A := TCARRAY('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2'); RESULTS := SUBSTR(CARD, 1, 6) || '19' || SUBSTR(CARD, 7, 9); S := 0; Begin For I In 1 .. 17 Loop S := S + To_Number(SUBSTR(RESULTS, I, 1)) * W(I); End Loop; Exception When Others Then Return ''; End; S := S Mod 11; RESULTS := RESULTS || A(S + 1); Return(RESULTS); End IDCARD15TO18;
原文地址:http://www.cnblogs.com/erguai/p/16836087.html
1. 本站所有资源来源于用户上传和网络,如有侵权请邮件联系站长!
2. 分享目的仅供大家学习和交流,请务用于商业用途!
3. 如果你也有好源码或者教程,可以到用户中心发布,分享有积分奖励和额外收入!
4. 本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
5. 如有链接无法下载、失效或广告,请联系管理员处理!
6. 本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
7. 如遇到加密压缩包,默认解压密码为"gltf",如遇到无法解压的请联系管理员!
8. 因为资源和程序源码均为可复制品,所以不支持任何理由的退款兑现,请斟酌后支付下载
声明:如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性