创建存储 过程

创建一个周日期的存储过程：

create or replace

procedure   tt1  
is
i int;
    begin
    i:=0;
   while i<52 loop
    insert   into   weekinfos1   values('2013',i+1,to_char(to_date('2013-01-07','yyyy-mm-dd')+i*7,'yyyy-mm-dd'),to_char(to_date('2013-01-07','yyyy-mm-dd')+(i+1)*7-1,'yyyy-mm-dd'));
   i :=i+1;
    end loop;

  end;