Oracle plsql 月历

原创 2013年12月05日 17:06:19
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

版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

oracle plsql

PLSQL 概念: oracle公司在SQL基础上进行扩展的一种过程语言,具有高级语言的特性,如封装、例外处理机制、信息隐藏、面向对象等,SQL语言可以直接写到PLSQL的‘块’中或者是PLSQL的过...

oracle的周、月份、日历

http://hi.baidu.com/fishman0923/blog/item/28879dc1a869a5df38db49d2.htmloracle的周、月份、日历 1、周 /* 关键在于...

我是如何成为一名python大咖的?

人生苦短,都说必须python,那么我分享下我是如何从小白成为Python资深开发者的吧。2014年我大学刚毕业..

oracle的周、月份、日历

oracle的周、月份、日历 1、周 /* 关键在于当年第一周的第一天和最后一天怎么算,后面只需加上7天就是一周,类推 --还有就是确定的是,一年总共只有53周 --Oracle中周日为第一...

如何查找在Oracle中不被Package/Procedure/Function/Type/Trigger所引用的表

From them we can easily find what are the depending  tables and views of EVM Owned Package/Procedure...

Oracle/PLSQL: Oracle System Tables

Oracle uses a Data Dictionary to store details of all the Tables, Columns etc.. (check out the ...

PL/SQL 3.3以上的版本中,UTL_FILE包答应用户通过PL/SQL读写操作系统文件

PL/SQL 3.3以上的版本中,UTL_FILE包答应用户通过PL/SQL读写操作系统文件。如下:   declare   file_handle UTL_FILE.FILE_TYPE;   ...

PLSQL 字符串函数、数学函数、日期函数

--【字符串函数】 --字符串截取substr(字段名,起始点,个数) select Name,substr(Name,2,4),substr(Name,0,3),substr(Name,-2...

Oracle/PLSQL: Replace Function

Oracle/PLSQL: Replace Function ------------------------------------------------------------------...

Oracle -PLSQL 详解

PLSQL PL/SQL 是Oracle 对 sql 语言的过程化扩展, 指在sql 命令语言中增加了过程处理语句(如分支、循环等),使sql语言具有过程处理能力 PL/SQL 基础语法...

plsql oracle 编程

PL/SQL程序设计               目        录 第一章     ...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)