Oracle plsql 月历

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