年龄算法（Age algorithm）.doc

年龄算法（Age algorithm） function fun _ get _ nl (for _ csrq dates, to _ dqrq dates, as _ xz in varchar2) return varchar2 is result varchar2 (50). no _ months number; no _ days number; no _ year number. d _ dqrq dates; s _ xz varchar2 (20). s _ nl varchar2 (50). begin if to _ csrq is null or to _ csrq = to _ dates (1900 - 1 - 1 , yyyy-mm-dd ) then result: = ; return (result); end if; if to _ dqrq is null or to _ dqrq = to _ dates (1900 - 1 - 1 , yyyy-mm-dd ) then d _ dqrq: = sysdate; else d _ dqrq: = _ dqrq; end if; if as _ xz is null then d = _ xz: banlsf; else s _ xz = as _ xz. end if; - 计算日数 select round (d _ dqrq - _ csrq) into n _ days from dual; if no _ days 1 then no _ days = 1; end if; - 计算年数 select to _ number (to _ char (d _ dqrq, yyyy) to _ number (to _ char (_ csrq, yyyy) into n _ year from dual; if no _ year 0 then no _ year: = 0; end if; - 联众病案系统年龄算法 if s _ xz = banlsf is then select to _ number (to _ char (d _ dqrq, yyyy) * 12 + to _ number (to _ char (d _ dqrq, mm)) (to _ number (to _ char (_ csrq, yyyy) * 12 + to _ number (to _ char (_ csrq, mm)) into n _ months from dual; if no _ months 12 then s _ nl = to _ char (trunc (n _ months / 12)) | |s 岁; elsif n _ months 1 then if no _ days 32 then s _ nl = to _ char (trunc (n _ days) | |s 天; else s _ nl = to _ char (trunc (n _ months) | |s 个月; end if; else s _ nl = to _ char (trunc (n _ days) | |s 天; end if; elsifs _ xz = xs is then if no _ days 100 then s _ nl = to _ char (trunc (n _ days) | |s 天; elsif n _ days - 735 then s _ nl = to _ char (trunc (n _ days / 30.5,0) | |s 个月; else s _ nl = to _ char (n _ year + 1) | |s 岁; end if; elsifs _ xz = xs1 is then if no _ days 100 then s _ nl = to _ char (trunc (n _ days) | |s 天; elsif n _ days - 735 then s _ nl = to _ char (trunc (n _ days / 30.5,0) | |s 个月; else if to _ char (_ csrq, mmdd) = to _ char (d _ dqrq, mmdd) then s _ nl = to _ char (n _ year + 2) | |s 岁; else s _ nl = to _ char (n _ year + 1) | |s 岁; end if; end if; elsifs _ xz = zs is then if n