第四章 存储过程 难题 ，烧脑哦........

/存储过程：输入一个年份输出这个年份的所有日期，闰年2月29天， 非闰年2月28天/

create or replace procedure in_year(ayear number)
as
m number:=1;–月
d number:=0;–日期
begin
loop
d:=1;
loop case
when m in (1,3,5,7,8,10,12) and d=32
then exit ;
when m in (4,6,9,11) and d=31
then exit ; --整除4不整除100，整除400
when m=2 and (mod(ayear,4)=0 and mod(ayear,100)<>0 or mod(ayear,400)=0) and d=30
then exit;
when m=2 and (mod(ayear,4)<>0 or mod(ayear,400)<>0) and d=29
then exit;
else dbms_output.put_line(ayear||‘年’||m||‘月’||d||‘日’);
end case;
d:=d+1;
end loop;
m:=m+1;
exit when m=13;
end loop;
end;
–存储过程已创建，调用：
call in_year(2000);

create or replace procedure yearday(p_year in number)
as
everyday date;
begin --获得输入年份的一月一日 everyday:=to_date(p_year||‘0101’,‘yyyymmdd’);
loop
dbms_output.put_line(to_char(everyday,‘yyyymmdd’)); --在原有日期的基础上加1
everyday:=everyday+1; --累加后的年份大于输入的年份时退出
if to_char(everyday,‘yyyy’)>p_year
then exit;
end if;
end loop;
end;
–存储过程已创建，调用：
call yearday(2018);

---

创建一个存储过程，输入一个带若干逗号的字符串，输出用逗号分隔的字符串信息

---

方式一：

create or replace procedure pro_getchar(v_char in varchar2)
is
n number;–逗号个数
i number:=1;–为了求出逗号个数而设置的循环变量
p1 number;–前一个逗号的位置
p2 number;–后一个逗号的位置
single_char varchar2(200);–承接要输出的单个字符串
begin
–字符串中第一个字符开始1次出现逗号的位置数字信息
select instr(v_char,’,’,1,1) into p1 from dual;
– 从1开始，截取p1-1个长度后的字符串
select substr(v_char,1,p1-1) into single_ch