身份证号码15位18位相互转化算法，Powerbuiler、Oracle函数
身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》中做了明确的规定。
GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。GB11643-1999《公民身份号码》主要内容如下：
一、范围
该标准规定了公民身份号码的编码对象、号码的结构和表现形式，使每个编码对象获得一个唯一的、不变的法定号码。
二、编码对象
公民身份号码的编码对象是具有中华人民共和国国籍的公民。
三、号码的结构和表示形式
1、号码的结构
公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。
排列顺序从左至右依次为：
六位数字地址码
八位数字出生日期码
三位数字顺序码
一位数字校验码。
2、地址码
表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。
3、出生日期码
表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日代码之间不用分隔符。
4、顺序码
表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
5、校验码
（1）十七位数字本体码加权求和公式
S = Sum(Ai * Wi), i = 0, ... , 16 ，先对前17位数字的权求和
Ai:表示第i位置上的身份证号码数字值
Wi:表示第i位置上的加权因子
Wi: 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
（2）计算模
Y = mod(S, 11)
（3）通过模得到对应的校验码
Y: 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2
本人写的身份证号码15位18位相互转化的Powerbuilder函数
global type getid from function_object
end type
forward prototypes
global function string getnewid (string old_id)
global function string getid (string idcard)
end prototypes
global function string getid (string idcard);
//Leehost写的新旧身份证号码转换函数
//如果输入的身份证号为15位，则返回18位对应号
//如果输入的身份证号为18位，则返回15位对应号
//如果为其它长度，则返回"0"
if len(IDCard)=15 then
int Wi[]={7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1}
string Wf[]= {'1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2'}
IDCard = Mid(IDCard, 1, 6) + "19" + Mid(IDCard, 7, 9)
int i,S=0
For i = 1 To 17
S = Wi[ i ] * integer(Mid(IDCard, i , 1)) +S
Next
return IDCard + Wf[Mod(S,11) + 1]
elseif len(IDCard)=18 then
return Mid(IDCard, 1, 6) + Mid(IDCard, 9, 9)
end if
return "0"
end function
身份证号码15位18位相互转化Oracle数据库函数
FUNCTION GetID(Prm_Id15 IN VARCHAR2) RETURN VARCHAR2 IS
Prm_Id18 VARCHAR2(20);
TYPE Wi IS VARRAY(18) OF NUMBER(2);
TYPE Wf IS VARRAY(11) OF VARCHAR2(1);
i NUMBER := 1;
Str VARCHAR2(18);
v_Sum NUMBER(10);
Ai NUMBER(2);
w Wi := Wi(7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2, 1);
a Wf := Wf('1', '0', 'X', '9', '8', '7', '6', '5', '4', '3', '2');
BEGIN
IF Length(Prm_Id15) = 15 THEN
Str := Substr(Prm_Id15, 1, 6) || '19' || Substr(Prm_Id15, 7, 9);
v_Sum := 0;
FOR i IN 1 .. 17 LOOP
v_Sum := v_Sum + To_Number(Substr(Str, i, 1)) * w(i);
END LOOP;
Ai := MOD(v_Sum, 11);
Prm_Id18 := Str || a(Ai + 1);
RETURN Prm_Id18;
ELSIF Length(Prm_Id15) = 18 THEN
Prm_Id18 := Prm_Id15;
RETURN Prm_Id18;
ELSE
RETURN Prm_Id15;
END IF;
EXCEPTION
WHEN OTHERS THEN
RETURN Prm_Id15;
END GetID;
评论0