Oracle函數(shù)獲取IDCARD中年齡

   IDCARD的第一代是15位號碼，第二代是18位號碼，

   新的18位IDCARD號碼各位的含義:1-2位省、自治區(qū)、直轄市代碼 

                                3-4位地級市、盟、自治州代碼  

                                5-6位縣、縣級市、區(qū)代碼  

                                7-14位出生年月日，比如19670401代表1967年4月1日

                                15-17位為順序號，其中17位男為單數(shù)，女為雙數(shù)  

                                18位為校驗碼，0-9和X，由公式隨機產(chǎn)生。

     15位IDCARD號碼各位的含義: 1-2位省、自治區(qū)、直轄市代碼；  

                               3-4位地級市、盟、自治州代碼；  

                               5-6位縣、縣級市、區(qū)代碼；   

                               7-12位出生年月日,比如670401代表1967年4月1日,這是和18位號碼的第一個區(qū)別；  

                               13-15位為順序號，其中15位男為單數(shù)，女為雙數(shù)

                               與18位***號的第二個區(qū)別：沒有最后一位的驗證碼

從IDCARD中獲取用戶年齡信息，要對IDCARD合法性進行校驗。

--判斷是否為數(shù)字，返回True,False
CREATE OR REPLACE FUNCTION DT_ISNUMBER(P_IN VARCHAR2) RETURN BOOLEAN AS
  I NUMBER ;
BEGIN
  I := TO_NUMBER(P_IN);
  RETURN TRUE;
EXCEPTION
  WHEN OTHERS THEN
    RETURN FALSE;
END;

--判斷是否為日期，返回True,False
CREATE OR REPLACE FUNCTION DT_ISDATE(P_IN VARCHAR2) RETURN BOOLEAN AS
  I DATE;
BEGIN
  I := TO_DATE(P_IN,'YYYYMMDD');
  RETURN TRUE;
EXCEPTION
  WHEN OTHERS THEN
    RETURN FALSE;
END;


--判斷是否為合法的***號
CREATE OR REPLACE FUNCTION DT_ISIDCARD(P_IDCARD VARCHAR2) RETURN BOOLEAN IS
  IDCARDLEN INTEGER;
BEGIN
  IDCARDLEN := LENGTH(P_IDCARD);
  IF (IDCARDLEN = 18 AND DT_ISNUMBER(SUBSTR(P_IDCARD, 1, IDCARDLEN - 1)) AND
     DT_ISDATE(SUBSTR(P_IDCARD, 7, 8)) ) OR
     (IDCARDLEN = 15 AND DT_ISNUMBER(SUBSTR(P_IDCARD, 1, IDCARDLEN)) AND
     DT_ISDATE('19' || SUBSTR(P_IDCARD, 7, 6)) ) THEN
    RETURN TRUE;  
  ELSE
    RETURN FALSE;
  END IF;
END DT_ISIDCARD;


--獲取***號信息的年齡并返回
CREATE OR REPLACE FUNCTION DT_GETAGE(P_IDCARD VARCHAR2) RETURN INTEGER IS
IDCARDLEN INTEGER;
IDCARDYEAR INTEGER;
BEGIN 
  IDCARDLEN :=LENGTH(P_IDCARD);  
   IF DT_ISIDCARD(P_IDCARD) AND IDCARDLEN = 18 THEN
     IDCARDYEAR := TO_NUMBER(SUBSTR(P_IDCARD,7,4));  
  END IF;
  IF DT_ISIDCARD(P_IDCARD) AND IDCARDLEN = 15 THEN  
     IDCARDYEAR := TO_NUMBER('19'||SUBSTR(P_IDCARD,7,2));
  END IF;
  RETURN  TO_NUMBER(TO_CHAR(SYSDATE,'YYYY'))-IDCARDYEAR;       
END DT_GETAGE;

 以上針對***年齡獲取常用函數(shù)做個記錄，方便日后直接使用或者對***中其他地址、性別做進一步解析使用

（PS：為啥shenfenzheng這三個字要當(dāng)做敏感信息被過濾掉了呢）