剔除工作时间计算时间间隔函数

CREATE OR REPLACE FUNCTION WORKTIME 
(
STAR_DATE IN DATE, 
END_DATE IN DATE 
)
/************************************************************/
/*  funcate     : WORKTIME
/*  Description : 计算工作小时间隔数
                : 工作时间：8:30~17:30 共计9小时                  
                : 推算公式: 间隔天数超过1天：当前的时间+结束那天的时间+9*工作日间隔天数
                              当天处理完：结束时间-开始时间
/*  Parameters  : STAR_DATE  开始时间
                  END_DATE   结束时间
*/

RETURN NUMBER
IS  
WORK_DATE_S DATE;  --转换后开始时间
WORK_DATE_E DATE;  --转换后结束时间
L_DAY INT;  --间隔天数
L_HOUR NUMBER(7,2);  --间隔小时

BEGIN
IF STAR_DATE<TRUNC(STAR_DATE,'dd')+8/24+30/(24*60)
THEN WORK_DATE_S:=TRUNC(STAR_DATE,'dd')+8/24+30/(24*60);  --如果8点半之前审批，转换开始时间为当天8点半
ELSIF STAR_DATE>=TRUNC(STAR_DATE,'dd')+8/24+30/(24*60) AND STAR_DATE<=TRUNC(STAR_DATE,'dd')+17/24+30/(24*60)
THEN WORK_DATE_S:=STAR_DATE;  --如果8点半至17点30之间审批，不转换时间
ELSIF STAR_DATE>TRUNC(STAR_DATE,'dd')+17/24+30/(24*60)
THEN WORK_DATE_S:=TRUNC(STAR_DATE+1,'dd')+8/24+30/(24*60);--如果17点半之后审批，转换开始时间为第二天8点半
END IF;
IF END_DATE<TRUNC(END_DATE,'dd')+8/24+30/(24*60)
THEN WORK_DATE_E:=TRUNC(END_DATE,'dd')+8/24+30/(24*60);  --如果8点半之前审批，转换结束时间为当天8点半
ELSIF END_DATE>=TRUNC(END_DATE,'dd')+8/24+30/(24*60) AND END_DATE<=TRUNC(END_DATE,'dd')+17/24+30/(24*60)
THEN WORK_DATE_E:=END_DATE ; --如果8点半至17点30之间审批，不转换时间
ELSIF END_DATE>TRUNC(END_DATE,'dd')+17/24+30/(24*60)
THEN WORK_DATE_E:=TRUNC(END_DATE+1,'dd')+8/24+30/(24*60);--如果17点半之后审批，转换结束时间为第二天8点半
END IF;
L_DAY:=ROUND(TO_NUMBER(WORK_DATE_E - WORK_DATE_S));
L_HOUR:=TO_NUMBER(TO_DATE(TO_CHAR(WORK_DATE_E,'hh24:mi:ss'),'hh24:mi:ss')-TO_DATE(TO_CHAR(WORK_DATE_S,'hh24:mi:ss'),'hh24:mi:ss'))*24+L_DAY*9;
RETURN L_HOUR;
END;