程序包或函数f_getcblrsl处于无效状态

Question

create or replace function f_getCblrSl(
       qsrq Date,
       jzrq Date,
       cbrl Number)
return Number is
       v_sl Number(5);
       v_month Number(5);
begin
   v_sl := 0;
   v_month := to_char(jzrq,'mm') - to_char(qsrq,'mm');
   if v_month < 1 then
    if cbrl >= to_char(qsrq,'dd') and cbrl <= to_char(jzrq,'dd') then
         v_sl := 1;
      end if;
   else
    if cbrl >= to_char(qsrq,'dd') then
         v_sl := 1;
      end if;
      if cbrl <= to_char(jzrq,'dd') then
         v_sl := v_sl + 1;
      end if;
      v_sl := v_month -1 + v_sl;
  end if;
  return v_sl;
end f_getCblrSl;
/