今天写了一个关于比较麻烦的日期判断的函数,先贴上放这里存着,主要是根据日期判断领料是否超支的
相关需求
一.领料金额标准是从6.26-7.25.(7月) 7.26-8.25算为8月.除12,1月.12月为11.26-12.31.
1月为1.1-1.25。
二.7月份填的金额标准只对6.26-7.25.(7月)当月有用,到26日了,金额标准控制自动取消.
只有填了8月的金额标准,才对8月有控制,以此类推.
-判断领料是否超支
Function f_if_llcz(p_rq varchar2, p_bmmc varchar2, p_xmbm varchar2) return number
is
v_rq date;
v_begin date;--统计开始时间
v_end date; --统计结束时间
v_rqts Number; -- 当前日期天数
v_month Number;-- 当前月份
v_year Number;-- 当前年
v_bzje WZ_LLJE.BZJE%type;
v_sjje WZ_LLJE.SJJE%type;
v_cnt number;
v_flag number;
begin
-- v_rq := trunc(to_date(p_rq, 'yyyy-mm-dd'), 'mm');
--处理传进来的日期
v_rqts := to_number(substr(p_rq,instr(p_rq,'-',-1)+1)) ;
v_month := to_number(substr(p_rq,instr(p_rq,'-',1)+1,2)) ;
v_year := to_number(substr(p_rq,1,4));
If 1<v_month and v_month< 12 then
if v_rqts<=25 then --如果日期小于25日 统计区间就是上个月25日到当天
v_begin := to_date(to_char(v_year)||'-'||to_char(v_month-1)||'-'||'26','yyyy-mm-dd');
v_end :=to_date(p_rq,'yyyy-mm-dd');
v_rq:=to_date(to_char(v_year)||'-'||to_char(v_month),'yyyy-mm');
end if;
if v_rqts>26 then --如果日期大于25日 统计区间就是从当月26日到当天
v_begin := to_date(to_char(v_year)||'-'||to_char(v_month)||'-'||'26','yyyy-mm-dd');
v_end :=to_date(p_rq,'yyyy-mm-dd');
v_rq:=to_date(to_char(v_year)||'-'||to_char(v_month+1),'yyyy-mm');
end if;
--如果是1月份 查询起止时间就是本月1日到当天
Elsif v_month = 1 then
v_begin := to_date(to_char(v_year)||'-'||to_char(v_month)||'-'||'1','yyyy-mm-dd');
v_end :=to_date(p_rq,'yyyy-mm-dd');
v_rq:=to_date(to_char(v_year)||'-'||to_char(v_month),'yyyy-mm');
--如果是12月份 查询起止时间就是上月26日到当天
Elsif v_month = 12 then
v_begin := to_date(to_char(v_year)||'-'||to_char(v_month-1)||'-'||'26','yyyy-mm-dd');
v_end :=to_date(p_rq,'yyyy-mm-dd');
v_rq:=to_date(to_char(v_year)||'-'||to_char(v_month),'yyyy-mm');
end if;
select sum(spje) into v_sjje from wz_lljhxb a, wz_lljhpb b
where a.bh = b.bh and sqrq >=v_begin and sqrq<=v_end and b.bmmc = p_bmmc
and b.xmbm = p_xmbm and b.bill_state='1' group by b.bmmc;
select count(*) into v_cnt from wz_llje
where to_date(year || '-' || month, 'yyyy-mm') = v_rq and bmmc = p_bmmc;
if v_cnt = 0 then --该月没有定标准
v_sjje := 0; --让实际金额等于零,于是总不会超支
else
select bzje into v_bzje from wz_lljexb
where pbbh = to_char(v_rq, 'yyyymm') || p_bmmc and xmbm = p_xmbm;
end if;
if(v_bzje is null) then
v_flag := 0;
else
if nvl(v_sjje, 0) > nvl(v_bzje, 0) then --实际金额大于标准金额,v_flag为1
v_flag := 1;
else
v_flag := 0;
end if;
end if;
return v_flag;
end;