create or replace procedure pro_test6(fmonth in varchar2,lmonth in varchar2)
as
fnum number:=2;
lnum number:=5;
begin
fnum:=to_number(substr(fmonth,6,2));
if to_number(substr(lmonth,1,4))>to_number(substr(fmonth,1,4))
then lnum:=12+substr(lmonth,6,2);
else lnum:=substr(lmonth,6,2);
end if;
for cur1 in ( select 名称,rn,
case when rn<=lnum and rn>=fnum
then value
else 0 end value
from (
select t.*,row_number()over(order by to_number(substr(名称,1,instr(名称,'月',1,1)-1)))rn from money t
union all select t1.*,12+row_number()over(order by to_number(substr(名称,1,instr(名称,'月',1)-1))) from money t1)
where rn<=case when lnum>12 then lnum else 12 end
and rn>case when lnum>12 then lnum else 12 end-12
order by rn)
loop
dbms_output.put_line(case sign(cur1.rn-12) when 1 then substr(fmonth,1,4)+1
else substr(fmonth,1,4) end||'年'||substr(cur1.名称,1,2)||'--'||cur1.value);
end loop;
end pro_test6;
begin
pro_test6('2008年06月','2009年01月');
end;
2008年2月--0
2008年3月--0
2008年4月--0
2008年5月--0
2008年6月--150
2008年7月--100
2008年8月--200
2008年9月--150
2008年10--130
2008年11--135
2008年12--120
2009年1月--170
