oracle滞纳金的计算-创新互联

create or replace function GET_ZNJ(
JFJZRQ in date,
YJE in number,
ZNJBL in number,
ZT in varchar2,
SJJFRQ in date,
MIAN_ZNJ in varchar2,
ZNJ_JMCS in number
) return NUMBER is
V_ZNJ NUMBER(14,2);
V_DATE date;
V_DAYS number;
begin
 V_ZNJ := 0;

 IF ZT <= '4' THEN
    V_DATE := SYSDATE;
 END IF;
 IF ZT >= '5' THEN
    V_DATE := SJJFRQ;
 END IF;

 V_DAYS := trunc(V_DATE) - trunc(JFJZRQ);
 IF MIAN_ZNJ = '1' THEN --不予减免1
 BEGIN
    V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
               ELSE NVL(ROUND(V_DAYS * YJE * ZNJBL,2),0)
           END;
 END;
 ELSIF MIAN_ZNJ = '0' THEN --全部减免0
 BEGIN
    V_ZNJ := 0;
 END;
 ELSIF MIAN_ZNJ = '2' THEN --日期减免2
 BEGIN
    V_ZNJ := CASE WHEN V_DAYS - ZNJ_JMCS <= 0 THEN 0
               ELSE NVL(ROUND((V_DAYS - ZNJ_JMCS) * YJE * ZNJBL,2),0)
           END;
 END;
 ELSIF MIAN_ZNJ = '3' THEN --比例减免3
 BEGIN
    V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
               ELSE NVL(ROUND(ROUND(V_DAYS * YJE * ZNJBL,2) * (1 - ZNJ_JMCS),2),0)
           END;
 END;
 ELSIF MIAN_ZNJ = '4' THEN --定额减免4
 BEGIN
    V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
               ELSE NVL(ROUND(V_DAYS * YJE * ZNJBL,2),0) - ZNJ_JMCS
           END;
    IF V_ZNJ < 0 THEN
       V_ZNJ := 0;
    END IF;
 END;
 ELSE  --不予减免
 BEGIN
    V_ZNJ := CASE WHEN V_DAYS <= 0 THEN 0
               ELSE NVL(ROUND(V_DAYS * YJE * ZNJBL,2),0)
             END;
 END;
 END IF;
 -- 滞纳金大于应缴金额时，滞纳金=应缴金额
 IF V_ZNJ > YJE THEN
    V_ZNJ := YJE;
 END IF;
 return V_ZNJ;
end GET_ZNJ;

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。