CREATE OR REPLACE Function zl_sfzhy_wdj
(
ID_IN 病人信息.身份证号%Type,
出生日期_In 病人信息.出生日期%type,
性别_In 病人信息.性别%type
) Return Varchar2 Is
--功能：对写入的身份证号进行核验，核验通过返回身份证号，核验失败返回空值王冬建 2015-12-11
--身份证校验码的计算方法
--1、将前面的身份证号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为：7－9－10－5－8－4－2－1－6－3－7－9－10－5－8－4－2。
--2、将这17位数字和系数相乘的结果相加。
--3、用加出来和除以11，看余数是多少？
--4、余数只可能有0－1－2－3－4－5－6－7－8－9－10这11个数字。其分别对应的最后一位身份证的号码为1－0－X －9－8－7－6－5－4－3－2。
--5、通过上面得知如果余数是3，就会在身份证的第18位数字上出现的是9。如果对应的数字是10，身份证的最后一位号码就是罗马数字x。
--例如：某男性的身份证号码为【53010219200508011x】，我们看看这个身份证是不是合法的身份证。
--首先我们得出前17位的乘积和【(5*7)+(3*9)+(0*10)+(1*5)+(0*8)+(2*4)+(1*2)+(9*1)+(2*6)+(0*3)+(0*7)+(5*9)+(0*10)+(8*5)+(0*8)+(1*4)+(1*2)】是189，然后用189除以11
--得出的结果是189/11=17----2，也就是说其余数是2。最后通过对应规则就可以知道余数2对应的检验码是X。所以，可以判定这是一个正确的身份证号码。
v_xs Varchar2(17) := '79058421637905842'; --身份证相乘系数
v_zhyw Varchar2(11) := '10X98765432'; --身份证最后一位
n_sfzh Number := 0; --相应位置的身份证号号码
n_xcxs Number := 0; --对应位置的相乘系数数字
n_xsh Number := 0; --身份证乘以系数相加的和
n_ys Number := 0; --余数
v_jy Varchar2(1); --校验位
v_sfzh Varchar2(1); --防止身份证号最后一位是字符
Begin
--第一步，判断身份证位数是否正确
If length(id_in) <> 18 Then
Return '';
End If;
--第二步，将身份证号与系数相乘，得到和
begin
For n In 1 .. 17
Loop
--获取相应位置的身份证号号码以及相乘系数，如果身份证号号码为'X'，则替换为0
n_sfzh := to_number(substr(id_in,n,1));
n_xcxs := Replace(to_number(substr(v_xs,n,1)),0,10);
--获取相乘后的系数和
n_xsh := n_xsh + n_sfzh * n_xcxs;
End Loop;
Exception
When Others Then
Return '';
End;
--获取余数
n_ys := Mod(n_xsh,11);
--对身份证进行最后一位数字进行核验
v_sfzh := upper(substr(id_in,18,1));
v_jy := substr(v_zhyw,n_ys + 1,1);
If v_sfzh = v_jy Then
--判断出生日期是否正确
if to_char(出生日期_in,'yyyymmdd') = substr(id_in,7,8) then
--判断性别是否正确
if 性别_In = '男' then
if mod(substr(id_in,17,1),2) = 1 then
return id_in;
end if;
else
if mod(substr(id_in,17,1),2) = 0 then
return id_in;
end if;
end if;
return '';
Else
return '';
end if;
Else
Return '';
End If;
Exception
When Others Then
Zl_Errorcenter(Sqlcode, Sqlerrm);
End zl_sfzhy_wdj;
/

ITPub博客

身份证号码验证系统

最新文章