常用函数--不同时间粒度循环取数之sp_Utl_ComboTime

CREATE OR REPLACE FUNCTION sp_Utl_ComboTime(

iTime DATE, -- 输入时间

iAdmBeginTime DATE, -- 输入偏移开始时间

iAdmEndTime DATE, -- 输入偏移结束时间

iTimeSectFlag INTEGER, -- 步长

iComboFlag INTEGER, -- 偏移标志, 0: 加偏移开始时间; 非0: 加偏移结束时间

oTime OUT DATE -- 输出时间

) RETURN INTEGER

AS

tTime VARCHAR2(50); -- 工作时间

v_ErrM VARCHAR2(200);

BEGIN

-- 判断TimeStatFlag, 为tTime赋值

-- 时段: 步长为小时

IF iTimeSectFlag = 1 THEN

tTime := TO_CHAR(iTime, 'YYYY-MM-DD HH24:MI:SS');

END IF;

-- 小时: 步长为小时

IF iTimeSectFlag = 2 THEN

tTime := TO_CHAR(iTime, 'YYYY-MM-DD HH24:')||'00:00';

END IF;

-- 半小时: 步长为半小时不用处理时间

-- format的时候已经搞定了

IF iTimeSectFlag = 10 THEN

tTime := TO_CHAR(iTime, 'YYYY-MM-DD HH24:MI:SS');

END IF;

-- 天: 步长为天, 偏移为小时

IF iTimeSectFlag = 3 THEN

IF iComboFlag = 0 THEN

tTime := TO_CHAR(iTime, 'YYYY-MM-DD')||' '||TO_CHAR(iAdmBeginTime, 'HH24:MI:SS');

ELSE

IF iAdmBeginTime >= iAdmEndTime THEN

tTime := TO_CHAR(iTime + 1, 'YYYY-MM-DD')||' '||TO_CHAR(iAdmEndTime, 'HH24:MI:SS');

ELSE

tTime := TO_CHAR(iTime, 'YYYY-MM-DD')||' '|| TO_CHAR(iAdmEndTime, 'HH24:MI:SS');

END IF;

END IF;

END IF;

-- 周: 步长为周, 步长为1天, 范围为iTime到周日起始、结束时间已经在sp_Utl_FormatTime中修正,

-- 在此不需要做任何处理。

IF iTimeSectFlag = 4 THEN

tTime := TO_CHAR(iTime, 'YYYY-MM-DD HH24:MI:SS');

END IF;

-- 月: 步长为月, 偏移为天

IF iTimeSectFlag = 6 THEN

IF iComboFlag = 0 THEN

tTime := TO_CHAR(iTime, 'YYYY-MM-')||TO_CHAR(iAdmBeginTime, 'DD HH24:MI:SS');

ELSE

IF iAdmBeginTime >= iAdmEndTime THEN

tTime := TO_CHAR(ADD_MONTHS(iTime, 1), 'YYYY-MM-')||TO_CHAR(iAdmEndTime, 'DD HH24:MI:SS');

ELSE

tTime := TO_CHAR(iTime,'YYYY-MM-')||TO_CHAR(iAdmEndTime, 'DD HH24:MI:SS');

END IF;

END IF;

END IF;

-- 统计步长为季度

IF iTimeSectFlag = 7 THEN

DECLARE

cStep CONSTANT INTEGER := 3;

tMonthTime INTEGER;

tMonthAdm INTEGER;

tStep INTEGER;

tMonth CHAR(2);

tAdmBeginTime DATE;

tAdmEndTime DATE;

BEGIN

tAdmBeginTime := iAdmBeginTime;

tAdmEndTime := iAdmEndTime;

tMonth := TO_NUMBER(TO_CHAR(iTime, 'MM'));

--计算起始时间

IF iComboFlag = 0 THEN

tStep := ROUND((tMonth + 1) / cStep) - 1;

tMonthAdm := TO_NUMBER(TO_CHAR(tAdmBeginTime, 'MM'));

tMonth := tStep * cStep + tMonthAdm;

tTime := TO_CHAR(iTime, 'YYYY-') || '01' || TO_CHAR(tAdmBeginTime, '-DD HH24:MI:SS');

ELSE --计算结束时间

IF (iAdmBeginTime < iAdmEndTime) THEN

tStep := ROUND((tMonth + 1) / cStep) - 1;

tMonthAdm := TO_NUMBER(TO_CHAR(tAdmEndTime, 'MM'));

tMonth := tStep * cStep + tMonthAdm;

ELSE

tStep := ROUND((tMonth + 1) / cStep) - 1;

tMonthAdm := TO_NUMBER(TO_CHAR(tAdmEndTime, 'MM')) + cStep;

tMonth := tStep * cStep + tMonthAdm;

END IF;

tTime := TO_CHAR(iTime, 'YYYY-') || '01' || TO_CHAR(tAdmEndTime, '-DD HH24:MI:SS');

END IF;

tTime := TO_CHAR(ADD_MONTHS(TO_DATE(tTime, 'YYYY-MM-DD HH24:MI:SS'), tMonth - 1), 'YYYY-MM-DD HH24:MI:SS');

END;

END IF;

-- 统计步长为半年

IF iTimeSectFlag = 8 THEN

DECLARE

cStep CONSTANT INTEGER := 6;

tMonthTime INTEGER;

tMonthAdm INTEGER;

tStep INTEGER;

tMonth CHAR(2);

tAdmBeginTime DATE;

tAdmEndTime DATE;

BEGIN

tAdmBeginTime := iAdmBeginTime;

tAdmEndTime := iAdmEndTime;

tMonth := TO_NUMBER(TO_CHAR(iTime, 'MM'));

--计算起始时间

IF iComboFlag = 0 THEN

tStep := ROUND((tMonth + 2) / cStep) - 1;

tMonthAdm := TO_NUMBER(TO_CHAR(tAdmBeginTime, 'MM'));

tMonth := tStep * cStep + tMonthAdm;

tTime := TO_CHAR(iTime, 'YYYY-') || '01' || TO_CHAR(tAdmBeginTime, '-DD HH24:MI:SS');

ELSE --计算结束时间

IF (iAdmBeginTime < iAdmEndTime) THEN

tStep := ROUND((tMonth + 2) / cStep) - 1;

tMonthAdm := TO_NUMBER(TO_CHAR(tAdmEndTime, 'MM'));

tMonth := tStep * cStep + tMonthAdm;

ELSE

tStep := ROUND((tMonth + 2) / cStep) - 1;

tMonthAdm := TO_NUMBER(TO_CHAR(tAdmEndTime, 'MM')) + cStep;

tMonth := tStep * cStep + tMonthAdm;

END IF;

tTime := TO_CHAR(iTime, 'YYYY-') || '01' || TO_CHAR(tAdmEndTime, '-DD HH24:MI:SS');

END IF;

tTime := TO_CHAR(ADD_MONTHS(TO_DATE(tTime, 'YYYY-MM-DD HH24:MI:SS'), tMonth - 1), 'YYYY-MM-DD HH24:MI:SS');

END;

END IF;

-- 统计步长为年

IF iTimeSectFlag = 9 THEN

IF iComboFlag = 0 THEN

tTime := TO_CHAR(iTime, 'YYYY-')||TO_CHAR(iAdmBeginTime, 'MM-DD HH24:MI:SS');

ELSE

IF iAdmBeginTime >= iAdmEndTime THEN

tTime := TO_CHAR(ADD_MONTHS(iTime, 12), 'YYYY-')|| TO_CHAR(iAdmEndTime, 'MM-DD HH24:MI:SS');

ELSE

tTime := TO_CHAR(iTime, 'YYYY-')||TO_CHAR(iAdmEndTime, 'MM-DD HH24:MI:SS');

END IF;

END IF;

END IF;

-- 统计步长为旬

IF iTimeSectFlag = 5 THEN

IF iComboFlag = 0 THEN

IF TO_NUMBER(TO_CHAR(iTime,'DD')) <= 10 THEN

tTime := TO_CHAR(iTime,'YYYY-MM-') || '01 00:00:00';

ELSIF TO_NUMBER(TO_CHAR(iTime,'DD')) <= 20 THEN

tTime := TO_CHAR(iTime,'YYYY-MM-') || '11 00:00:00';

ELSE

tTime := TO_CHAR(iTime,'YYYY-MM-') || '21 00:00:00';

END IF;

ELSE

IF TO_NUMBER(TO_CHAR(iTime,'DD')) < 10 THEN

tTime := TO_CHAR(iTime,'YYYY-MM-') || '01 00:00:00';

ELSIF TO_NUMBER(TO_CHAR(iTime,'DD')) < 20 THEN

tTime := TO_CHAR(iTime,'YYYY-MM-') || '11 00:00:00';

ELSIF TO_NUMBER(TO_CHAR(iTime,'DD')) < 30 THEN

tTime := TO_CHAR(iTime,'YYYY-MM-') || '21 00:00:00';

ELSE

tTime := TO_CHAR(ADD_MONTHS(iTime,1),'YYYY-MM-') || '01 00:00:00';

END IF;

END IF;

END IF;

oTime := TO_DATE(tTime, 'YYYY-MM-DD HH24:MI:SS');

RETURN 0;

EXCEPTION

WHEN OTHERS THEN

v_ErrM := SUBSTR(SQLERRM, 1, 200);

DBMS_OUTPUT.PUT_LINE(v_ErrM);

RETURN 1;

END sp_Utl_ComboTime;