Oracle 身份证号码校验

 

        今天来了身份证校验的需求，想在Oracle中校验后将错误数据查询出来。于是我在网上查到了身份证校验的Oracle函数。但是发现一些正确的身份证号也未校验通过！后来经过千辛万苦的努力终于发现了，网上给的函数中判断是否是闰年的 substrb 函数应该从第7为开始截取，而不是第6位！！还有要注意最后一位校验位的大小写转换后再做比较！坑爹啊！坑死我了！

 

CREATE OR REPLACE FUNCTION f_checkidcard (p_idcard IN VARCHAR2)
RETURN INT IS v_regstr VARCHAR2 (2000);
v_sum NUMBER;
v_mod NUMBER;
v_checkcode CHAR(11):= '10X98765432';
v_checkbit CHAR(1);
v_areacode VARCHAR2 (2000) :='11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,';
BEGIN
 CASE LENGTHB(p_idcard)
 
 WHEN 15 THEN -- 15位         
 IF INSTRB(v_areacode, SUBSTR (p_idcard, 1, 2) || ',') = 0 THEN
  RETURN 1;
 END IF;
 
 IF MOD (TO_N