年龄算法.docVIP

年龄算法 FUNCTION FUN_GET_NL(ad_csrq IN date,ad_dqrq IN date,as_xz IN VARCHAR2) RETURN VARCHAR2 IS RESULT VARCHAR2(50); n_months number; n_days number; n_year number; d_dqrq date; s_xz VARCHAR2(20); s_nl VARCHAR2(50); BEGIN IF ad_csrq is null OR ad_csrq = TO_DATE(1900-1-1,YYYY-MM-DD) THEN RESULT := ; RETURN(RESULT); END IF; IF ad_dqrq is null OR ad_dqrq = TO_DATE(1900-1-1,YYYY-MM-DD) THEN d_dqrq := SYSDATE; ELSE d_dqrq := ad_dqrq; END IF; IF as_xz is null THEN s_xz := BANLSF; ELSE s_xz := as_xz; END IF; --计算日数 select round(d_dqrq - ad_csrq) into n_days from dual; IF n_days 1 THEN n_days := 1; END IF; --计算年数 select to_number(to_char(d_dqrq,yyyy)) - to_number(to_char(ad_csrq,yyyy)) into n_year from dual; if n_year 0 then n_year := 0; end if; --联众病案系统年龄算法 IF s_xz = BANLSF THEN select to_number(to_char(d_dqrq,YYYY))*12 + to_number(to_char(d_dqrq,MM)) - (to_number(to_char(ad_csrq,YYYY))*12 + to_number(to_char(ad_csrq,MM))) into n_months from dual; IF n_months 12 THEN s_nl := to_char(trunc(n_months/12))||岁; ELSIF n_months 1 THEN IF n_days 32 THEN s_nl := to_char(trunc(n_days))||天; ELSE s_nl := to_char(trunc(n_months))||个月; END IF; ELSE s_nl := to_char(trunc(n_days))||天; END IF; ELSIF s_xz = XS THEN If n_days 100 Then s_nl := to_char(trunc(n_days))||天; ElsIf n_days 735 Then s_nl := to_char(trunc(n_days/30.5,0))||个月; Else s_nl := to_char(n_year + 1)||岁; End If; ELSIF s_xz = XS1 THEN If n_days 100 Then s_nl := to_char(trunc(n_days))||天; ElsIf n_days 735 Then s_nl := to_char