Oracle plsql 计算日期间工作日天数

declare   v_fdate date := to_date('2013-10-4','yyyy-mm-dd');   v_ldate date := to_date('2013-10-22','yyyy-mm-dd');   v_interval_a number;   v_interval_b number;   v_interval_all number; begin   --先算整周有几周，然后乘一周五天工作日   v_interval_a := floor((v_ldate - v_fdate)/7) * 5;   --然后再算剩余的天数   v_interval_b := mod((v_ldate - v_fdate),7);      --从头开始循环，共循环剩余天数次，遇到周六周日，减去一天   for i in 0..v_interval_b - 1 loop     dbms_output.put_line(to_char(v_fdate + i,'day'));     case to_char(v_fdate + i,'day')       when '星期六' then v_interval_b := v_interval_b - 1;       when '星期日' then v_interval_b := v_interval_b - 1;       else null;     end case;   end loop;      --把两部分合并起来，算出总共工作日，并输出   v_interval_all := v_interval_a + v_interval_b;   dbms_output.put_line(to_char(v_fdate,'yyyy-mm-dd') || ' 到 ' ||    to_char(v_ldate,'yyyy-mm-dd') || ' 有 ' || v_interval_all || ' 天工作日'); end;