declare
v_year number := 2013;
v_month number := &input_month;
v_day number;
v_lastday number;
begin
dbms_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 loop
dbms_output.put(' ');
end loop;
--顺序打印每天
for i in 1 .. v_lastday loop
dbms_output.put(to_char(i,'99') || ' ');
--如果遇到星期六，则换行（保证星期的标识从1-7循环）
if v_day = 7 then
dbms_output.put_line('');
v_day := 1;
else
v_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