oracle自定义函数身份证15位和18位的转换
生活随笔
收集整理的這篇文章主要介紹了
oracle自定义函数身份证15位和18位的转换
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
CREATE OR REPLACE Function IDCARD15TO18(CARD Varchar2) Return Varchar2 IsType TIARRAY Is Table Of Integer;Type TCARRAY Is Table Of Char(1);RESULTS Varchar2(18);W TIARRAY; --數(shù)字數(shù)組A TCARRAY; --字符數(shù)組S Integer;
BeginIf CARD Is Null ThenReturn '';End If;If LENGTH(CARD) <> 15 ThenReturn 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;BeginFor I In 1 .. 17 LoopS := S + To_Number(SUBSTR(RESULTS, I, 1)) * W(I);End Loop;ExceptionWhen Others ThenReturn '';End;S := S Mod 11;RESULTS := RESULTS || A(S + 1);Return(RESULTS);
End IDCARD15TO18;
CREATE OR REPLACE Function IDCARD18TO15(CARD Varchar2) Return Varchar2 IsRESULTS Varchar2(18); BeginIf CARD Is Null ThenReturn '';End If;If LENGTH(CARD) <> 18 ThenReturn CARD;End If;RESULTS := substr(CARD,1,6)||substr(CARD,9,9);Return(RESULTS); End IDCARD18TO15;
轉(zhuǎn)載于:https://www.cnblogs.com/1025804158ysb/p/7649196.html
總結
以上是生活随笔為你收集整理的oracle自定义函数身份证15位和18位的转换的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 2021-2022半导体行业投资策略：矛
- 下一篇： 简单谈谈编程语言（外篇）