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

CREATE OR REPLACE FUNCTION sp_Utl_PrepareData(
    iBeginTime              DATE,       -- 输入起始时间
    iEndTime              DATE,         -- 输入结束时间
    iAdmBeginTime        DATE,          -- 输入偏移开始时间
    iAdmEndTime            DATE,      -- 输入偏移结束时间
    iTimeSectFlag     INTEGER,    -- 步长
    oBeginTime    OUT    DATE,          -- 输出起始时间
    oEndTime  OUT      DATE,        -- 输出结束时间
    oAdmBeginTime OUT DATE,         -- 输出偏移开始时间
    oAdmEndTime   OUT   DATE         -- 输出偏移结束时间
) RETURN INTEGER
AS
    tBeginDate        DATE;       -- 格式化后查询起始日期
    tEndDate      DATE;       -- 格式化后查询结束日期
    iRet          INTEGER;
    DATA_ERROR        EXCEPTION;  -- 数据非法
BEGIN
    -- 检查是否存在输入日期参数
    IF (iBeginTime IS NULL) OR (iEndTime IS NULL) THEN
        RAISE DATA_ERROR;
    END IF;


    -- 格式化时间
    iRet := sp_Utl_FormatTime(iBeginTime, iEndTime, iAdmBeginTime, iAdmEndTime, iTimeSectFlag, tBeginDate, tEndDate, oAdmBeginTime, oAdmEndTime);
    IF iRet <> 0 THEN
        RAISE DATA_ERROR;
    END IF;


    -- 制定数据边界
    IF sp_Utl_ComboTime(tBeginDate, oAdmBeginTime, oAdmEndTime, iTimeSectFlag, 0 , oBeginTime) = 1 THEN
        RETURN 1;
    END IF;
    IF sp_Utl_ComboTime(tEndDate, oAdmBeginTime, oAdmEndTime, iTimeSectFlag, 1 , oEndTime) = 1 THEN
        RETURN 1;
    END IF;


    -- 不统计结束日期所在的那天
    IF iTimeSectFlag = 3 THEN
      oEndTime := oEndTime - 1;
    END IF;


    RETURN 0;


EXCEPTION
    WHEN DATA_ERROR THEN
        RETURN 2;
    WHEN OTHERS THEN
        RETURN 1;
END;