declarev_year number := 2013;v_month number := &input_month;v_day number;v_lastday number;begindbms_output.put_line(v_year || '年' || v_month || '月的月歷');--轉換星期為數字，方便計算case substr(to_char(to_date(v_year || v_month,'yyyymm'),'day'),3,1)when '日' then v_day := 1;when '一' then v_day := 2;when '二' then v_day := 3;when '三' then v_day := 4;when '四' then v_day := 5;when '五' then v_day := 6;when '六' then v_day := 7;else null;end case;v_lastday := to_char(last_day(to_date(v_year || v_month,'yyyymm')),'dd');dbms_output.put_line('第一天為本周第' || v_day || '天');dbms_output.put_line('本月共' || v_lastday || '天');dbms_output.put_line(' 日 ?一 ?二 ?三 ?四 ?五 ?六');--PS:以上所有要用到的數據都已經得到了，下面是展示--縮進月的第一天for j in 1 .. v_day - 1 loopdbms_output.put(' ? ?');end loop;--順序打印每天for i in 1 .. v_lastday loopdbms_output.put(to_char(i,'99') || ' ');--如果遇到星期六，則換行（保證星期的標識從1-7循環）if v_day = 7 thendbms_output.put_line('');v_day := 1;elsev_day := v_day + 1;end if;end loop;--PS:空格在打印的時候，可能被省略，可以換成其他字符嘗試--輸出最后一行未能輸出的字符dbms_output.put_line('');end;
效果如下：

2013年2月的月歷
第一天為本周第6天
本月共28天
日 一 二 三 四 五 六
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的Oracle plsql 月历的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。