当前位置: 首页 > 图文教程 > 数据库 > Oracle > 两种方法分析每月工作日计算程序

Oracle
Oracle数据库的安全策略
ORACLE应用经验(2)
在ORACLE移动数据库文件
Microsoft SQL Server 安全问题
Oracle数据库技术(37)
Oracle数据库技术(38)
Access2000迁移到Oracle9i要点
数据库Oracle数据的异地的自动备份
安装Oracle加载数据库错误areasQueries的解决
Oracle数据库逻辑备份的SH文件
Oracle常见错误诊断
Oracle9i在Win2k环境下的完全卸载
Oracle数据库快照的使用
Oracle9i数据库异常关闭后的启动
Oracle也有注入漏洞
Oracle9iPL/SQL编程的经验小结
oracle用什么SQL语句判断表存不存在
Oracle SQL性能优化系列学习三
用Oracle并行查询发挥多CPU的威力
oracle快速删除重复的记录

Oracle 中的 两种方法分析每月工作日计算程序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-31   浏览: 276 ::
收藏到网摘: n/a


 SQL> SELECT TEXT FROM USER_SOURCE WHERE TYPE='PROCEDURE' AND NAME='GZR';
  
  TEXT                                                
  ----------------------------------------------------------------------------------------------------
  procedure gzr(v_nowdate in varchar2) as                              
  v_firstsaturday varchar2(10);                                   
  v_outdate date;                                          
  v_countworkday number(10);                                     
  begin                                               
        select to_char(next_day(to_date(concat(v_nowdate,'01'),'yyyymmdd'),1)-1,'dd')         
       into v_firstsaturday                                      
       from sys.dual;                                         
   v_countworkday:=to_number(v_firstsaturday)-1;                          
   loop                                               
    v_outdate:=to_date(concat(v_nowdate,v_firstsaturday+7),'yyyymmdd');              
    if v_outdate yyymm'),'01'),'yyyymmdd') then                                   
                                                    
     v_countworkday:=v_countworkday+5;                              
     else                                             
     v_countworkday:=v_countworkday+5-to_number(v_outdate-to_date(concat(to_char(add_months(sysdate
  ,1),'yyyymm'),'01'),'yyyymmdd'));                                 
                                                    
    end if;                                            
   exit when v_outdate>=to_date(concat(to_char(add_months(sysdate,1),'yyyymm'),'01'),'yyyymmdd');  
  
  TEXT
  
  CREATE OR REPLACE FUNCTION Get_WorkingDays(
   ny IN VARCHAR2
  ) RETURN INTEGER IS

  
  /*------------------------------------------------------------------------------------------
  函数名称:Get_WorkingDays
  中文名称:求某一年月中共有多少工作日
  作者姓名: XINGPING
  编写时间: 2004-05-22
  输入参数:NY:所求包含工作日数的年月,格式为yyyymm,如200405
  返 回 值:整型值,包含的工作日数目。
  算法描述:
    1).列举出参数给出的年月中的每一天。这里使用了一个表(ljrq是我的库中的一张表。这个表可以是有权访问的、记录条数至少为31的任意一张表或视图)来构造出某年月的每一天。
    2).用这些日期和一个已知星期几的日期相减(2001-12-30是星期天),所得的差再对7求模。如果所求年月在2001-12-30以前,那么所得的差既是负数,求模后所得值范围为大于-6,小于0,如-1表示星期六,故先将求模的结果加7,再求7的模.
    3).过滤掉结果集中值为0和6的元素,然后求count,所得即为工作日数目。   
  -------------------------------------------------------------------------------------------------*/