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

CREATE OR REPLACE PROCEDURE sp_Utl_CalculateTimeBorder(
    iBeginTime              DATE,       -- 输入起始时间
    iEndTime              DATE,         -- 输入结束时间
    iAdmBeginTime        DATE,          -- 输入偏移开始时间
    iAdmEndTime            DATE,      -- 输入偏移结束时间
    iTimeSectFlag     INTEGER,    -- 步长
    oTime OUT          DATE,      -- 下一步长的边界
    oUpTime   OUT       DATE,       -- 本轮的统计截止时间
    sValue    OUT        VARCHAR2 -- 统计标志, 返回给调用过程的StatisticalTimeValue
)
AS
    SectTime      DATE;       -- 间隔时间
BEGIN
    -- 判断TimeStatFlag, 为TempTime赋值


    -- 统计步长为时段, 没有偏移
    IF iTimeSectFlag = 1 THEN
        SectTime := iBeginTime + (iEndTime - iBeginTime);
        oUpTime := SectTime;
        oTime := SectTime;
        sValue := TO_CHAR(iBeginTime, 'YYYY')||'/'
            ||TO_CHAR(iBeginTime, 'MM')||'/'
            ||TO_CHAR(iBeginTime, 'DD')||' '
            ||TO_CHAR(iBeginTime, 'HH24')
            ||'-'
            ||TO_CHAR(iEndTime, 'YYYY')||'/'
            ||TO_CHAR(iEndTime, 'MM')||'/'
            ||TO_CHAR(iEndTime, 'DD')||' '
            ||TO_CHAR(iEndTime, 'HH24');
    END IF;


    -- 统计步长为小时
    IF iTimeSectFlag = 2 THEN
        SectTime := iBeginTime +  1/24;
        oUpTime := SectTime;
        oTime := iBeginTime + 1/24 ;
        sValue := TO_CHAR(iBeginTime, 'YYYY')||'/'
            ||TO_CHAR(iBeginTime, 'MM')||'/'
            ||TO_CHAR(iBeginTime, 'DD')||' '||
            TO_CHAR(iBeginTime, 'HH24')||'-'||TO_CHAR(oUpTime, 'HH24');
    END IF;


    -- 统计步长为半小时
    IF iTimeSectFlag = 10 THEN
        SectTime := iBeginTime +  1/48;
        oUpTime := SectTime;
        oTime := iBeginTime + 1/48 ;
        sValue := TO_CHAR(iBeginTime, 'YYYY')||'/'
            ||TO_CHAR(iBeginTime, 'MM')||'/'
            ||TO_CHAR(iBeginTime, 'DD')||' '||
            TO_CHAR(iBeginTime, 'HH24:MI')||'-'||TO_CHAR(oUpTime, 'HH24:MI');
    END IF;


    -- 统计步长为天
    IF iTimeSectFlag = 3 THEN
        IF iAdmBeginTime >= iAdmEndTime THEN
            SectTime := iBeginTime + ((iAdmEndTime + 1) - iAdmBeginTime);
        ELSE
            SectTime := iBeginTime + (iAdmEndTime - iAdmBeginTime);
        END IF;
        oUpTime := SectTime;
        oTime := iBeginTime + 1 ;
        sValue := TO_CHAR(iBeginTime, 'YYYY')||'/'
            ||TO_CHAR(iBeginTime, 'MM')  ||'/'
            ||TO_CHAR(iBeginTime, 'DD') ;
    END IF;


    -- 统计步长为周
    IF iTimeSectFlag = 4 THEN
        oUpTime := iBeginTime + 1;
        oTime   := iBeginTime + 1 ;


        DECLARE
            DayOfWeek    INTEGER;    -- 一周中的第几天
        BEGIN
            DayOfWeek := TO_NUMBER(TO_CHAR(iBeginTime, 'D'));
            IF DayOfWeek = 1 THEN
                sValue := '星期日';
            ELSIF DayOfWeek = 2 THEN
                sValue := '星期一';
            ELSIF DayOfWeek = 3 THEN
                sValue := '星期二';
            ELSIF DayOfWeek = 4 THEN
                sValue := '星期三';
            ELSIF DayOfWeek = 5 THEN
                sValue := '星期四';
            ELSIF DayOfWeek = 6 THEN
                sValue := '星期五';
            ELSIF DayOfWeek = 7 THEN
                sValue := '星期六';
            ELSE
                sValue := '';
            END IF;
        END;
    END IF;


    -- 统计步长为月
    IF iTimeSectFlag = 6 THEN
        IF iAdmBeginTime >= iAdmEndTime THEN
            SectTime := ADD_MONTHS(iBeginTime + (iAdmEndTime - iAdmBeginTime), 1);
        ELSE
            SectTime := iBeginTime + (iAdmEndTime - iAdmBeginTime);
        END IF;
        oUpTime := SectTime;
        oTime := ADD_MONTHS(iBeginTime,1) ;
        sValue := TO_CHAR(iBeginTime, 'YYYY')||'/'||TO_CHAR(iBeginTime, 'MM');
    END IF;


    -- 统计步长为季度
    IF iTimeSectFlag = 7 THEN
        IF iAdmBeginTime >= iAdmEndTime THEN
            SectTime := ADD_MONTHS(iBeginTime + (iAdmEndTime - iAdmBeginTime), 3);
        ELSE
            SectTime := iBeginTime + (iAdmEndTime - iAdmBeginTime);
        END IF;
        oUpTime := SectTime;
        oTime := ADD_MONTHS(iBeginTime, 3);
        sValue := TO_CHAR(iBeginTime, 'YYYY');


        DECLARE
            tMonth    INTEGER;
        BEGIN
            tMonth := TO_NUMBER(TO_CHAR(iBeginTime, 'MM'));
            IF tMonth <= 3 THEN
                sValue := sValue||'年一季度';
            ELSIF tMonth <= 6 THEN
                sValue := sValue||'年二季度';
            ELSIF tMonth <= 9 THEN
                sValue := sValue||'年三季度';
            ELSE
                sValue := sValue||'年四季度';
            END IF;
        END;
    END IF;


    -- 统计步长为半年
    IF iTimeSectFlag = 8 THEN
        IF iAdmBeginTime >= iAdmEndTime THEN
            SectTime := ADD_MONTHS(iBeginTime + (iAdmEndTime - iAdmBeginTime), 6);
        ELSE
            SectTime := iBeginTime + (iAdmEndTime - iAdmBeginTime);
        END IF;
        oUpTime := SectTime;
        oTime := ADD_MONTHS(iBeginTime, 6) ;


        sValue := TO_CHAR(iBeginTime, 'YYYY');
        DECLARE
            tMonth    INTEGER;
        BEGIN
            tMonth := TO_NUMBER(TO_CHAR(iBeginTime, 'MM'));
            IF tMonth <= 6 THEN
                sValue := sValue||'年上半年';
            ELSE
                sValue := sValue||'年下半年';
            END IF;
        END;
    END IF;


    -- 统计步长为年
    IF iTimeSectFlag = 9 THEN
        IF iAdmBeginTime >= iAdmEndTime THEN
            SectTime := iBeginTime + (ADD_MONTHS(iAdmEndTime, 12) - iAdmBeginTime);
        ELSE
            SectTime := iBeginTime + (iAdmEndTime - iAdmBeginTime);
        END IF;
        oUpTime := SectTime;
        oTime := ADD_MONTHS(iBeginTime, 12) ;
        sValue := TO_CHAR(iBeginTime, 'YYYY')||'年';
     END IF;


     -- 统计步长为旬
    IF iTimeSectFlag = 5 THEN
        IF TO_NUMBER(TO_CHAR(iBeginTime,'DD')) < 10 THEN
            SectTime := iBeginTime + 10;
        ELSIF TO_NUMBER(TO_CHAR(iBeginTime,'DD')) < 20 THEN
            SectTime := iBeginTime + 10;
        ELSE
            SectTime := to_date(TO_CHAR(ADD_MONTHS(iBeginTime,1),'YYYY-MM-') || '01 00:00:00','YYYY-MM-DD HH24:MI:SS');
        END IF;
        oUpTime := SectTime;
        oTime := SectTime;
        IF TO_NUMBER(TO_CHAR(iBeginTime,'DD')) <= 10 THEN
           sValue := TO_CHAR(iBeginTime, 'YYYY')||'年'||TO_CHAR(iBeginTime,'MM')||'月上旬';
        ELSIF TO_NUMBER(TO_CHAR(iBeginTime,'DD')) <= 20 THEN
           sValue := TO_CHAR(iBeginTime, 'YYYY')||'年'||TO_CHAR(iBeginTime,'MM')||'月中旬';
        ELSE
           sValue := TO_CHAR(iBeginTime, 'YYYY')||'年'||TO_CHAR(iBeginTime,'MM')||'月下旬';
        END IF;
    END IF;


EXCEPTION
    WHEN OTHERS THEN
        RETURN;
END sp_Utl_CalculateTimeBorder;