ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 求出當前日期所有的一個月中的所有星期五的時間(原創)

求出當前日期所有的一個月中的所有星期五的時間(原創)

原创 Linux操作系统 作者:wj99898 时间:2007-04-16 00:00:00 0 删除 编辑
DECLARE
v_date DATE ;--日期
vv_date date;
v_count NUMBER:=0; --當前月的天數
v_num varchar2(10);--用天存放一周中的天數
BEGIN
v_date := SYSDATE; --將日期傳進來
vv_date := last_day(add_months(v_date, -1)); --算出這個日期所在當月的第一天

--判斷這個月有多少天
IF to_char(SYSDATE, 'mm') IN ('01', '03', '05', '07', '08', '10', '12') THEN
v_count := 31;
ELSIF to_char(SYSDATE, 'mm') = '02' THEN
IF MOD(to_char(SYSDATE, 'yyyy'), 4) = 0 THEN
v_count := 29;
ELSE
v_count := 28;
END IF;
ELSE
v_count := 30;
END IF;

--查找是星期五的時間,如是將其顯示出來
FOR v_nu IN 1 .. v_count LOOP
SELECT to_char(vv_date + v_nu, 'd') INTO v_num FROM dual;
IF v_num = '6' THEN
dbms_output.put_line(vv_date + v_nu);
END IF;
END LOOP;
END;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/7185996/viewspace-135981/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-01-11

  • 博文量
    18
  • 访问量
    51492