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ù)字?jǐn)?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

總結(jié)

以上是生活随笔為你收集整理的oracle自定义函数身份证15位和18位的转换的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。