有关间隔时间的棘手问题
各位好：
    遇到一个比较棘手的取间隔时间问题.要写一个存储过程,传入三个参数,开始时间和结束时间(YYYY-MM-DD格式的字符串),还有一个是选择间隔(周/月/季度/半年/年).若选择为周,那么要得到起止时间内的每周一和周日的具体日期写入一张表中.举例如下:
开始时间为2007-08-01,结束时间为2007-08-31,间隔为周.那么我要得到如下数据.
2007-08-06     2007-08-12
2007-08-13     2007-08-19
2007-08-20     2007-08-26

若选择间隔为月,那么要得到起止时间内的每月1日至每月末.
如开始时间为2007-06-12,结束时间为2007-10-20,那么得到如下数据
2007-07-01   2007-07-31
2007-08-01   2007-08-31
2007-09-01   2007-09-30

若选择间隔为季度,那么就要得到起止时间内的每季度的第一天和最后一天.
举上面的例子来说.那么要得到的就是:
2007-07-01   2007-09-30

以此类推,若间隔为半年就是取起止时间内的半年头和半年尾,若间隔为年,就是起止时间内的年头和年尾啦.

问题比较难,若解决,分不是问题.望赐教谢谢.



------解决方案--------------------
基本上不太算是Oracle的问题。
结合Oracle的函数，简单的说一下思路。
周：
next_day(开始日期, '星期一 ') 返回开始时间之后的第一个星期一。后面的就循环加7吧。
计算出每个周的开始日和结束日。插入数据库。
知道一个周的开始日大于结束时间。
月：
使用last_day(开始时间)+1获得下月的1号，然后再使用last_day(add_months(开始时间，1)）获得下个月的结束时间。然后再辅助以一些循环变量控制循环即可。
半年：
其实和月很相近只不过add_months的时候从加1变成加7
年：
不用借鉴半年了，直接分析出是哪一年开始到哪一年结束。
to_number(trim(to_char(开始时间， 'YYYY ')))+1 即可得知下一个年头是啥。
后面就循环插入数据吧。
------解决方案--------------------
ITPUB给你也回了

create table test2
(
beg_date varchar2(10),
end_date varchar2(10)
)
;

create or replace procedure test
(
date_beg in varchar2,
date_end in varchar2,
duration_type in varchar2
)
as
beg_date date;
end_date date;
beg_month date;
end_month date;
begin
if date_beg> date_end then
dbms_output.put_line( 'beginning date must be earlier than end date ');
else
beg_date := to_date(date_beg, 'yyyy-mm-dd ');
end_date := to_date(date_end, 'yyyy-mm-dd ');
if duration_type= 'week ' then
while beg_date+6 <=end_date loop
if to_char(beg_date, 'D ')= '2 ' then
while beg_date+6 <=end_date loop
insert into test2 values(to_char(beg_date, 'yyyy-mm-dd '),to_char(beg_date+6, 'yyyy-mm-dd '));
beg_date := beg_date+7;
end loop;
end if;
beg_date := beg_date+1;
end loop;
else
if to_char(beg_date, 'dd ')= '01 ' then
beg_month := beg_date;
else
beg_month := to_date(to_char(add_months(beg_date,1), 'yyyy-mm ')|| '-01 ', 'yyyy-mm-dd ');
end if;
if to_char(end_date, 'yyyy-mm-dd ')=to_char(last_day(end_date), 'yyyy-mm-dd ') then
end_month := end_date;
else
end_month := to_date(to_char(last_day(add_months(end_date,-1)), 'yyyy-mm-dd '), 'yyyy-mm-dd ');
end if;
if duration_type= 'month ' then
while to_char(beg_month, 'yyyy-mm ') <=to_char(end_month, 'yyyy-mm ') loop
insert into test2 values (to_char(beg_month, 'yyyy-mm-dd '),to_char(last_day(beg_month), 'yyyy-mm-dd '));
beg_month := add_months(beg_month,1);
end loop;
elsif duration_type= 'quarter ' then
while to_char(add_months(beg_month,2), 'yyyy-mm ') <=to_char(end_month, 'yyyy-mm ') loop
if to_char(beg_month, 'mmdd ') in ( '0101 ', '0401 ', '0701 '