Oracle打印日历功能

Oracle用SQL打印日历

---

---

1.1  打印当月日历

, D, NULL)) SUN,

, D, NULL)) MON,

, D, NULL)) TUE,

, D, NULL)) WED,

, D, NULL)) THU,

, D, NULL)) FRI,

, D, NULL)) SAT

FROM (SELECT ROWNUM D,

 + TO_NUMBER(TO_CHAR(TRUNC(SYSDATE, 'MM'), 'D')) P,

TO_CHAR( + ROWNUM, 'D') DOW

FROM ALL_OBJECTS

WHERE ROWNUM <=

TO_NUMBER(TO_CHAR(LAST_DAY(TO_DATE(SYSDATE)), 'DD')))

)

ORDER BY sun NULLS FIRST;

1.2  打印年历

SELECT CASE

WHEN (NEW_YWEEK = MIN(NEW_YWEEK)

OVER(PARTITION BY MON ORDER BY NEW_YWEEK)) THEN

MON_NAME

ELSE

NULL

END AS MONTH,

NEW_YWEEK AS YWEEK,

ROW_NUMBER() OVER(PARTITION BY MON ORDER BY NEW_YWEEK) AS MWEEK,

SUM(DECODE(WDAY, '1', MDAY, NULL)) AS SUN,

SUM(DECODE(WDAY, '2', MDAY, NULL)) AS MON,

SUM(DECODE(WDAY, '3', MDAY, NULL)) AS TUE,

SUM(DECODE(WDAY, '4', MDAY, NULL)) AS WED,

SUM(DECODE(WDAY, '5', MDAY, NULL)) AS THU,

SUM(DECODE(WDAY, '6', MDAY, NULL)) AS FRI,

SUM(DECODE(WDAY, '7', MDAY, NULL)) AS SAT

FROM (SELECT DAYOFYEAR AS EVERYDAY,

TO_CHAR(DAYOFYEAR, 'mm') AS MON,

TO_CHAR(DAYOFYEAR, 'Month') AS MON_NAME,

TO_CHAR(DAYOFYEAR, 'w') AS MWEEK,

TO_CHAR(DAYOFYEAR, 'ww') AS YWEEK,

CASE

WHEN (TO_CHAR(TO_DATE(&YEAR || '0101', 'yyyymmdd'), 'd') > '1') AND

(TO_CHAR(DAYOFYEAR, 'd') <

TO_CHAR(TO_DATE(&YEAR || '0101', 'yyyymmdd'), 'd')) THEN

TO_CHAR(TO_CHAR(DAYOFYEAR, , 'fm00')

ELSE

TO_CHAR(DAYOFYEAR, 'ww')

END AS NEW_YWEEK,

TO_CHAR(DAYOFYEAR, 'd') AS WDAY,

TO_CHAR(DAYOFYEAR, 'dd') AS MDAY

 AS DAYOFYEAR

FROM DUAL

CONNECT BY LEVEL <=

TO_CHAR(TO_DATE(&YEAR || '1231', 'yyyymmdd'),

'ddd')))

GROUP BY MON, MON_NAME, NEW_YWEEK;

1.3  打印某月日历

ALTER session set nls_language='SIMPLIFIED CHINESE';

select  to_char(everyday,'ww') 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 星期六

 as everyDay

from dual

)

)

group by to_char(everyday,'ww')

ORDER BY week;

select  to_char(everyday,'ww') as week,

sum(decode(to_char(everyday,'d'),'1',to_char(everyday,'dd'))) as 星期日,

sum(decode(to_char(everyday,'d'),'2',to_char(everyday,'dd'))) as 星期一,

sum(decode(to_char(everyday,'d'),'3',to_char(everyday,'dd'))) as 星期二,

sum(decode(to_char(everyday,'d'),'4',to_char(everyday,'dd'))) as 星期三,

sum(decode(to_char(everyday,'d'),'5',to_char(everyday,'dd'))) as 星期四,

sum(decode(to_char(everyday,'d'),'6',to_char(everyday,'dd'))) as 星期五,

sum(decode(to_char(everyday,'d'),'7',to_char(everyday,'dd'))) as 星期六

 as everyDay

from dual

)

)

group by to_char(everyday,'ww')

ORDER BY week;

---

---

http://jackywood.itpub.net/post/1369/127565

一条SQL语句生成年历。

1. select case
2. when (new_yweek = min(new_yweek)over(partition by mon order by new_yweek)) then
3. mon_name
4. else
5. null
6. end as month,
7. new_yweek as yweek,
8. row_number() over(partition by mon order by new_yweek) as mweek,
9. sum(decode(wday, '1', mday, null)) as sun,
10. sum(decode(wday, '2', mday, null)) as mon,
11. sum(decode(wday, '3', mday, null)) as tue,
12. sum(decode(wday, '4', mday, null)) as wed,
13. sum(decode(wday, '5', mday, null)) as thu,
14. sum(decode(wday, '6', mday, null)) as fri,
15. sum(decode(wday, '7', mday, null)) as sat
16. from (select dayofyear as everyday,
17. to_char(dayofyear, 'mm') as mon,
18. to_char(dayofyear, 'Month') as mon_name,
19. to_char(dayofyear, 'w') as mweek,
20. to_char(dayofyear, 'ww') as yweek,
21. case
22. when (to_char(to_date(&year || '0101', 'yyyymmdd'), 'd') > '1') and
23. (to_char(dayofyear, 'd') <
24. to_char(to_date(&year || '0101', 'yyyymmdd'), 'd')) then
25. to_char(to_char(dayofyear, 'ww') + 1, 'fm00')
26. else
27. to_char(dayofyear, 'ww')
28. end as new_yweek,
29. to_char(dayofyear, 'd') as wday,
30. to_char(dayofyear, 'dd') as mday
31. from (select to_date(&year || '0101', 'yyyymmdd') + level - 1 as dayofyear
32. from dual
33. connect by level <= to_char(to_date(&year || '1231', 'yyyymmdd'),'ddd')
34. )
35. )
36. group by mon, mon_name, new_yweek
37. /

链接是作者的解读，我感觉年历的实现主要有三个步骤
1.生成一年之中所有的日期
2.在上步的基础上，得到每个日期所在周、月、年的具体信息。
3.行列转置

其中new_yweek这部分看的真是云里雾里，它主要解决Oracle to_char函数IW和WW坑爹的问题。

1. select to_char(d,'yyyy-mm-dd'),to_char(d,'d') dayofweek,to_char(d,'WW') WW,to_char(d,'IW') IW    from (
2. select to_date('20131229','yyyymmdd')+level-1 as d from dual connect by level<=10);

TO_CHAR(D, D WW IW           
---------- - -- --
2013-12-29 1 52 52
2013-12-30 2 52 01
2013-12-31 3 53 01
2014-01-01 4 01 01
2014-01-02 5 01 01
2014-01-03 6 01 01
2014-01-04 7 01 01
2014-01-05 1 01 01
2014-01-06 2 01 02
2014-01-07 3 01 02

已选择10行。

对比日历，发现2013年12月30,31日的IW，均划分到了2014年的第一周

MONTH  YWE MWEEK   SUN   MON   TUE   WED   THU   FRI   SAT
------ --- ----- ----- ----- ----- ----- ----- ----- -----
12月   49      1     1     2     3     4     5     6     7
       50      2     8     9    10    11    12    13    14
       51      3    15    16    17    18    19    20    21
       52      4    22    23    24    25    26    27    28
       53      5    29    30    31

1）ww的算法为每年1月1日为第一周开始，date+6为每一周结尾

　　例如20050101为第一周的第一天，而第一周的最后一天为20050101+6=20050107

　　公式 每周第一天 ：date + 周 * 7 - 7

　　每周最后一天：date + 周 * 7 - 1

2）iw的算法为星期一至星期日算一周，且每年的第一个星期一为第一周，

　　 例如20050101为星期六，所以用iw的算法是前年的53周，而20050103之后才是第一周的开始。

　　公式 每周第一天 ：next_day(date) + 周 * 7 - 7

　　每周最后一天：next_day(date) + 周 * 7 - 1

按照上述算法，WW的结果相差较远，而IW比较贴近我们对于日期的认识。
但是问题是IW存在边界问题。它会认为12月30日和31日是2014年的第一周，以此统计年历，则会出现问题。所以new_yweek解决的应该是这个问题。

可以使用下面的方法解决IW边界问题。

1. select case
2. when (yweek = min(yweek)over(partition by mon order by yweek)) then
3. mon_name
4. else
5. null
6. end as month,
7. yweek as yweek,
8. row_number() over(partition by mon order by yweek) as mweek,
9. sum(decode(wday, '1', mday, null)) as sun,
10. sum(decode(wday, '2', mday, null)) as mon,
11. sum(decode(wday, '3', mday, null)) as tue,
12. sum(decode(wday, '4', mday, null)) as wed,
13. sum(decode(wday, '5', mday, null)) as thu,
14. sum(decode(wday, '6', mday, null)) as fri,
15. sum(decode(wday, '7', mday, null)) as sat
16. from (select dayofyear as everyday,
17. to_char(dayofyear, 'mm') as mon,
18. to_char(dayofyear, 'Month') as mon_name,
19. to_char(dayofyear, 'w') as mweek,
20. max(decode(to_char(dayofyear,'d'),'1',to_char(dayofyear, 'iw')+1,to_char(dayofyear, 'iw'))) over(order by dayofyear) as yweek,
21. to_char(dayofyear, 'd') as wday,
22. to_char(dayofyear, 'dd') as mday
23. from (select to_date(&year || '0101', 'yyyymmdd') + level - 1 as dayofyear
24. from dual
25. connect by level <= to_char(to_date(&year || '1231', 'yyyymmdd'),'ddd')
26. )
27. )
28. group by mon, mon_name, yweek
29. /

解决IW边界问题:
max(decode(to_char(dayofyear,'d'),'1',to_char(dayofyear, 'iw')+1,to_char(dayofyear, 'iw'))) over(order by dayofyear) as yweek

decode部分，如果日期是周日，则将iw的值+1，以便日历对齐。
而max分析函数部分，解决类似12月30日，31日划分到下一年的问题。
这个实现存在一些问题。
如果元旦是周五，周六或者周日，例如20110101，它是周六，IW会认为这天是2010年的第五十二周。

1. SQL> select to_char(to_date('20110101','yyyymmdd'),'IW') from dual;
2. TO
3. --
4. 52

对于这个问题，我没有解决的方法，但是一个同事有另外一个方案，用自定义的周序列，使用偏移量。

1. select case
2. when (yweek = min(yweek)over(partition by mon order by yweek)) then
3. mon_name
4. else
5. null
6. end as month,
7. yweek as yweek,
8. row_number() over(partition by mon order by yweek) as mweek,
9. sum(decode(wday, '1', mday, null)) as sun,
10. sum(decode(wday, '2', mday, null)) as mon,
11. sum(decode(wday, '3', mday, null)) as tue,
12. sum(decode(wday, '4', mday, null)) as wed,
13. sum(decode(wday, '5', mday, null)) as thu,
14. sum(decode(wday, '6', mday, null)) as fri,
15. sum(decode(wday, '7', mday, null)) as sat
16. from (select dayofyear as everyday,
17. to_char(dayofyear, 'mm') as mon,
18. to_char(dayofyear, 'Month') as mon_name,
19. to_char(dayofyear, 'w') as mweek,
20. ceil(to_number(dayIndex)/7) as yweek,
21. to_char(dayofyear, 'd') as wday,
22. to_char(dayofyear, 'dd') as mday
23. from (
24. select
25. to_date(&year || '0101', 'yyyymmdd') + level - 1 as dayofyear,
26. to_char(s.firstday,'d')+rownum dayIndex
27. from
28. dual,(select to_date(&year || '0101','yyyymmdd')-1 firstday from dual) s
29. connect by level <= to_char(to_date(&year || '1231', 'yyyymmdd'),'ddd')
30. )
31. )
32. group by mon, mon_name, yweek
33. /

    

1. case when   (to_char(to_date(&year || '0101', 'yyyymmdd'), 'd') > '1')
2. and
3. (to_char(dayofyear, 'd') < to_char(to_date(&year || '0101', 'yyyymmdd'), 'd'))
4. then
5. to_char(to_char(dayofyear, 'ww') + 1, 'fm00')
6. else
7. to_char(dayofyear, 'ww')
8. end as new_yweek

以2013年一月为例，元旦是周二（不是周日，满足了Case When的第一个条件）
6,7日是周日、周一，小于元旦的周二，所以所在周+1，那么行列转置后在日历上就下沉了一层。

---

---

1 要构造某年某月的日历，必须先知道这个月的开始时间，结束时间及天数
开始日期 例如 2006年11月
select to_date('20061101','yyyymmdd') as startDayOfMon from  dual;

结束日期 
select last_day(to_date('20061101','yyyymmdd')) as endDayOfMon from  dual;

日期区间天数
select last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1 as DayOfMon
  from dual;

2 接下来就是需要得到开始时间到结束时间每一天的结果集
select * from (
select to_date('20061101','yyyymmdd') + level - 1 as everyDay from dual
  connect by level <= 
  (last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1));

3 再进一步则是将该月中的日期分解成第几周，星期几。

select everyDay,to_char(everyday,'yyyy') as 年,
   to_char(everyday,'mm') as 月,
   to_char(everyday,'dd') as 日,
   to_char(everyday,'dy') as 星期几,
   lpad(to_char(everyday,'w'),6) as 该月的第几周,
   lpad(to_char(everyday,'ww'),6) as 该年的第几周
   from(select to_date('20061101','yyyymmdd') + level - 1 as everyDay from dual
  connect by level <= 
  (last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1));

4 这个结果集求出来后,接下拉就是使用DECODE函数进行行列转换了
select everyDay,to_char(everyday,'yyyy') as 年,
   to_char(everyday,'mm') as 月,
   to_char(everyday,'dd') as 日,
   to_char(everyday,'dy') as 星期几,
   lpad(to_char(everyday,'w'),6) as 该月的第几周,
   lpad(to_char(everyday,'ww'),6) as 该年的第几周,
   lpad(decode(to_char(everyday,'dy'),'星期日',to_char(everyday,'dd')),3) as 星期日,
   lpad(decode(to_char(everyday,'dy'),'星期一',to_char(everyday,'dd')),3) as 星期一,
   lpad(decode(to_char(everyday,'dy'),'星期二',to_char(everyday,'dd')),3) as 星期二,
   lpad(decode(to_char(everyday,'dy'),'星期三',to_char(everyday,'dd')),3) as 星期三,
   lpad(decode(to_char(everyday,'dy'),'星期四',to_char(everyday,'dd')),3) as 星期四,
   lpad(decode(to_char(everyday,'dy'),'星期五',to_char(everyday,'dd')),3) as 星期五,
   lpad(decode(to_char(everyday,'dy'),'星期六',to_char(everyday,'dd')),3) as 星期六
    from(select to_date('20061101','yyyymmdd') + level - 1 as everyDay from dual
  connect by level <= 
  (last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1));

5 再进一步就是统计汇总了,大家发现一个小问题没有？
  就是该月的第几周这里是按本月开始是星期几为开始的日期，很有意思，
  这样我们按该日是该年的第几周则是以今年开始日期是星期几为开始日期

select  to_char(everyday,'w') 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('20061101','yyyymmdd') + level - 1 as everyDay 
          from dual
          connect by level <= (last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1)
        )
  group by to_char(everyday,'w');

6 以上日历基本成功，但还有一个问题，就是一周的开始时间问题

select  to_char(everyday,'ww') 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('20061101','yyyymmdd') + level - 1 as everyDay 
          from dual
          connect by level <= (last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1)
        )
  group by to_char(everyday,'ww');

7  这样虽然可以解决，但还存在问题，大家可以考虑下！也可以考虑下年历怎么做！

select  ceil((to_char(everyday,'dd')+(to_char(to_date('20061101','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('20061101','yyyymmdd') + level - 1 as everyDay 
          from dual
          connect by level <= (last_day(to_date('20061101','yyyymmdd')) - to_date('20061101','yyyymmdd') +1)
        )
  group by ceil((to_char(everyday,'dd')+(to_char(to_date('20061101','yyyymmdd'),'d')-1))/7);

以上是最终的结果。

---

---

About Me

...............................................................................................................................

● 本文整理自网络

● 本文在itpub（http://blog.itpub.net/26736162）、博客园（http://www.cnblogs.com/lhrbest）和个人微信公众号（xiaomaimiaolhr）上有同步更新

● 本文itpub地址：http://blog.itpub.net/26736162/abstract/1/

● 本文博客园地址：http://www.cnblogs.com/lhrbest

● 本文pdf版及小麦苗云盘地址：http://blog.itpub.net/26736162/viewspace-1624453/

     微信群：私聊

● 联系我请加QQ好友(646634621)，注明添加缘由

● 于 2017-04-28 09:00 ~ 2017-04-30 22:00 在魔都完成

● 文章内容来源于小麦苗的学习笔记，部分整理自网络，若有侵权或不当之处还请谅解

● 版权所有，欢迎分享本文，转载请保留出处

...............................................................................................................................

拿起手机使用微信客户端扫描下边的左边图片来关注小麦苗的微信公众号：xiaomaimiaolhr，扫描右边的二维码加入小麦苗的QQ群，学习最实用的数据库技术。