oralce sql 创建指定时间段内的日历信息

-- Create table

create table TEMP_CALENDAR

(

MONTH VARCHAR2(6),

W_7   VARCHAR2(2),

W_1   VARCHAR2(2),

W_2   VARCHAR2(2),

W_3   VARCHAR2(2),

W_4   VARCHAR2(2),

W_5   VARCHAR2(2),

W_6   VARCHAR2(2),

WEEK  VARCHAR2(20)

) ;

-- Add comments to the table

comment on table TEMP_CALENDAR

is ‘日期源数据表‘;

-- Add comments to the columns

comment on column TEMP_CALENDAR.MONTH

is ‘月份（格式如：200801）‘;

comment on column TEMP_CALENDAR.W_7

is ‘周日的日期（如：06）‘;

comment on column TEMP_CALENDAR.W_1

is ‘周一（如：07）‘;

comment on column TEMP_CALENDAR.W_2

is ‘周二（如：08）‘;

comment on column TEMP_CALENDAR.W_3

is ‘周三（如：09）‘;

comment on column TEMP_CALENDAR.W_4

is ‘周四（如：10）‘;

comment on column TEMP_CALENDAR.W_5

is ‘周五（如：11）‘;

comment on column TEMP_CALENDAR.W_6

is ‘周六（如：12）‘;

comment on column TEMP_CALENDAR.WEEK

is ‘本月第几周‘;

----生成 日历信息

-- truncate table calendar;

declare

vi_begin_year number(6);

vi_end_year number(6);

vi_year number(6);

vi_month number(6);

vs_month varchar2(6);

vs_first_day varchar2(8);

begin

vi_begin_year :=2000; ---start year

vi_end_year :=2100;   --- end year

vi_month :=1;

vi_year := vi_begin_year;

loop exit when(vi_year > vi_end_year);

for i in 1..12 loop

if length(i) =1 then

vs_month := to_char(vi_year)||‘0‘||to_char(i);

else

vs_month := to_char(vi_year)||to_char(i);

end if;

vs_first_day := vs_month||‘01‘;

insert into temp_calendar ( month, week,w_7, w_1, w_2, w_3, w_4, w_5, w_6 )

select substr(vs_first_day,1,6) month,

ceil((to_char(everyday,‘dd‘)+(to_char(to_date(vs_first_day,‘yyyymmdd‘),‘d‘)-1))/7) as week,

sum(decode(to_char(everyday,‘dy‘),‘星期日‘,to_char(everyday,‘dd‘))) as 星期日,

sum(decode(to_char(everyday,‘dy‘),‘星期一‘,to_char(everyday,‘dd‘))) as 星期一,

sum(decode(to_char(everyday,‘dy‘),‘星期二‘,to_char(everyday,‘dd‘))) as 星期二,

sum(decode(to_char(everyday,‘dy‘),‘星期三‘,to_char(everyday,‘dd‘))) as 星期三,

sum(decode(to_char(everyday,‘dy‘),‘星期四‘,to_char(everyday,‘dd‘))) as 星期四,

sum(decode(to_char(everyday,‘dy‘),‘星期五‘,to_char(everyday,‘dd‘))) as 星期五,

sum(decode(to_char(everyday,‘dy‘),‘星期六‘,to_char(everyday,‘dd‘))) as 星期六

from(

select to_date(vs_first_day,‘yyyymmdd‘) + level - 1 as everyDay

from dual

connect by level <= (last_day(to_date(vs_first_day,‘yyyymmdd‘))

- to_date(vs_first_day,‘yyyymmdd‘) +1) )

group by ceil((to_char(everyday,‘dd‘)+(to_char(to_date(vs_first_day,‘yyyymmdd‘),‘d‘)-1))/7) ;

commit;

end loop;

vi_year := vi_year+1;

end loop;

end;

　 order by a.year,a.month, a.week;