oracle截取6位,Oracle函数获取IDCARD中年龄

IDCARD的第一代是15位号码，第二代是18位号码，

新的18位IDCARD号码各位的含义:1-2位省、自治区、直辖市代码

3-4位地级市、盟、自治州代码

5-6位县、县级市、区代码

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

15-17位为顺序号，其中17位男为单数，女为双数

18位为校验码，0-9和X，由公式随机产生。

15位IDCARD号码各位的含义: 1-2位省、自治区、直辖市代码；

3-4位地级市、盟、自治州代码；

5-6位县、县级市、区代码；

7-12位出生年月日,比如670401代表1967年4月1日,这是和18位号码的第一个区别；

13-15位为顺序号，其中15位男为单数，女为双数

与18位***号的第二个区别：没有最后一位的验证码

从IDCARD中获取用户年龄信息，要对IDCARD合法性进行校验。

--判断是否为数字，返回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;

以上针对***年龄获取常用函数做个记录，方便日后直接使用或者对***中其他地址、性别做进一步解析使用

(PS：为啥shenfenzheng这三个字要当做敏感信息被过滤掉了呢)