[转] SQL日期函数dayadd/datediff/datepart

 函数一：

 CREATE OR REPLACE FUNCTION dayadd(p_Component varchar2,

                                   p_Number    number,

                                   p_Date      date) RETURN DATE IS

   /****************************************************************/

   /*      该函数为日期计算函数主要是计算〕                              */

   /*    　从当前日期开始经过多少日、季、月、年等后的日期。                 */

   /*     入参说明：p_Component         时间元件，如年月日季度等等       */

   /*                 p_Number        加数, 注意：应该为整数（可正可负） */

   /*                 p_Date                基准时间                */

   /*  注意：其他日期元件，如世纪等等，暂时未考虑                         */

   /***************************************************************/

   v_Component       varchar2(10);

   v_MiddleNumber    number;

   v_ReturnValue_Str varchar2(20); --字符串日期格式

   v_ReturnValue     date; --返回日期

 BEGIN

   v_Component := upper(ltrim(rtrim(p_Component)));

   if v_Component in ('Y', 'YY', 'YEAR', 'YYYY') then

     --年情况

     v_ReturnValue := add_months(p_Date, p_Number * 12);

   elsif v_Component in ('M', 'MM', 'MONTH', 'MON') then

     --月情况

     v_ReturnValue := add_months(p_Date, p_Number);

   elsif v_Component in ('D', 'DD', 'DAY') then

     --日情况

     v_ReturnValue := p_Date + p_Number;

   elsif v_Component in ('H', 'HH', 'HOUR') then

     --时情况

     v_ReturnValue := p_Date + p_Number / 24;

   elsif v_Component in ('MI', 'MINUTE') then

     --分情况

     v_ReturnValue := p_Date + p_Number / 1440;

   elsif v_Component in ('S', 'SS', 'SECOND') then

     --秒情况

     v_ReturnValue := p_Date + p_Number / 86400;

   elsif v_Component in ('Q', 'QQ', 'QUARTER') then

     --季度情况

     v_ReturnValue := p_Date + p_Number * 3;

   elsif v_Component in ('W', 'WW', 'WK', 'WEEK') then

     --周情况

     v_ReturnValue := p_Date + p_Number * 7;

   else

     v_ReturnValue := to_date('1-1-1', 'yyyy-mm-dd');

   end if;

   RETURN v_ReturnValue;

 EXCEPTION

   WHEN OTHERS THEN

     RETURN to_date('1-1-1', 'yyyy-mm-dd'); --例外处理

 END;

 函数二：

 create or replace function datediff(p_Component   varchar2,

                                     p_Subtranhend date,

                                     p_Minuend     date) RETURN NUMBER IS

   /*************************************************************************/

   /*      功    能：返回两个日期之间的天、周、月、年等数量。               */

   /*      入参说明： p_Component    时间元件，如年月日季度等等             */

   /*                 p_Subtrahend   减数时间                               */

   /*                 p_Minuend     被减数时间                              */

   /*************************************************************************/

   v_ReturnValue   number; -- 结果数值

   v_Component     varchar2(10); --日期组件中间转换形式，截取空格并且转为大写

   v_YearNum1      number; --减数年份数

   v_YearNum2      number; --被减数年份数

   v_MonthNum1     number; --减数月份数

   v_MonthNum2     number; --被减数月份数

   v_HourNum1      number; --减数时数

   v_HourNum2      number; --被减数时数

   v_MinuteNum1    number; --减数分钟数

   v_MinuteNum2    number; --被减数分钟数

   v_SecondNum1    number; --减数秒钟数

   v_SecondNum2    number; --减数秒钟数

   v_QuarterValue1 number; --减数季度数

   v_QuarterValue2 number; --被减数季度数

   v_WeekNum1      number; --减数与标准时间周差

   v_WeekNum2      number; --被减数与标准时间周差

 BEGIN

   v_Component := upper(ltrim(rtrim(p_Component)));

   if v_Component in ('Y', 'YY', 'YEAR', 'YYYY') then

     --年情况

     v_YearNum1    := to_number(to_char(p_Subtranhend, 'YYYY'));

     v_YearNum2    := to_number(to_char(p_Minuend, 'YYYY'));

     v_ReturnValue := v_YearNum2 - v_YearNum1;

   elsif v_Component in ('M', 'MM', 'MONTH', 'MON') then

     --月情况

     --请注意，这个部分与Oracle内置日期函数MONTH_BETWEEN()不同，忽略了日因素

     --而后者的两个日期如都是所在月的最后一天，才返回整数，否则，返回分数

     --而且这个分数是以31天作为一个月进行计算的结果

     v_YearNum1    := to_number(to_char(p_Subtranhend, 'YYYY'));

     v_YearNum2    := to_number(to_char(p_Minuend, 'YYYY'));

     v_MonthNum1   := to_number(to_char(p_Subtranhend, 'MM'));

     v_MonthNum2   := to_number(to_char(p_Minuend, 'MM'));

     v_ReturnValue := (v_YearNum2 - v_YearNum1) * 12 +

                      (v_MonthNum2 - v_MonthNum1);

   elsif v_Component in ('D', 'DD', 'DAY') then

     --日情况

     --这里与两个日期直接相减的oracle日期算术也不同，只返回整数天数；

     --而后者可以返回一天的几分之几（以小数形式表达）

     v_ReturnValue := to_date(to_char(p_Minuend, 'yyyy-mm-dd'), 'YYYY-MM-DD') -

                      to_date(to_char(p_Subtranhend, 'yyyy-mm-dd'),

                              'YYYY-MM-DD');

   elsif v_Component in ('H', 'HH', 'HOUR') then

     --时情况

     --第一步：求出天数

     v_ReturnValue := (to_date(to_char(p_Minuend, 'yyyy-mm-dd'),

                               'YYYY-MM-DD') -

                      to_date(to_char(p_Subtranhend, 'yyyy-mm-dd'),

                               'YYYY-MM-DD'));

     --第二步：求出时数

     v_HourNum1    := to_number(to_char(p_Subtranhend, 'HH24'));

     v_HourNum2    := to_number(to_char(p_Minuend, 'HH24'));

     v_ReturnValue := v_ReturnValue * 24 + (v_HourNum2 - v_HourNum1);

   elsif v_Component in ('MI', 'MINUTE') then

     --分情况

     --第一步：求出天数

     v_ReturnValue := (to_date(to_char(p_Minuend, 'yyyy-mm-dd'),

                               'YYYY-MM-DD') -

                      to_date(to_char(p_Subtranhend, 'yyyy-mm-dd'),

                               'YYYY-MM-DD'));

     --第二步：求出时数

     v_HourNum1    := to_number(to_char(p_Subtranhend, 'HH24'));

     v_HourNum2    := to_number(to_char(p_Minuend, 'HH24'));

     v_ReturnValue := v_ReturnValue * 24 + (v_HourNum2 - v_HourNum1);

     --第三步：求出分钟数

     v_MinuteNum1  := to_number(to_char(p_Subtranhend, 'MI'));

     v_MinuteNum2  := to_number(to_char(p_Minuend, 'MI'));

     v_ReturnValue := v_ReturnValue * 60 + (v_MinuteNum2 - v_MinuteNum1);

   elsif v_Component in ('S', 'SS', 'SECOND') then

     --秒情况

     --第一步：求出天数

     v_ReturnValue := (to_date(to_char(p_Minuend, 'yyyy-mm-dd'),

                               'YYYY-MM-DD') -

                      to_date(to_char(p_Subtranhend, 'yyyy-mm-dd'),

                               'YYYY-MM-DD'));

     --第二步：求出时数

     v_HourNum1    := to_number(to_char(p_Subtranhend, 'HH24'));

     v_HourNum2    := to_number(to_char(p_Minuend, 'HH24'));

     v_ReturnValue := v_ReturnValue * 24 + (v_HourNum2 - v_HourNum1);

     --第三步：求出分钟数

     v_MinuteNum1  := to_number(to_char(p_Subtranhend, 'MI'));

     v_MinuteNum2  := to_number(to_char(p_Minuend, 'MI'));

     v_ReturnValue := v_ReturnValue * 60 + (v_MinuteNum2 - v_MinuteNum1);

     --第四步：求出秒钟数

     v_SecondNum1  := to_number(to_char(p_Subtranhend, 'SS'));

     v_SecondNum2  := to_number(to_char(p_Minuend, 'SS'));

     v_ReturnValue := v_ReturnValue * 60 + (v_SecondNum2 - v_SecondNum1);

   elsif v_Component in ('Q', 'QQ', 'QUARTER') then

     --季度情况

     v_YearNum1      := to_number(to_char(p_Subtranhend, 'YYYY'));

     v_YearNum2      := to_number(to_char(p_Minuend, 'YYYY'));

     v_QuarterValue1 := to_number(to_char(p_Subtranhend, 'Q'));

     v_QuarterValue2 := to_number(to_char(p_Minuend, 'Q'));

     v_ReturnValue   := (v_YearNum2 - v_YearNum1) * 4 +

                        (v_QuarterValue2 - v_QuarterValue1);

   elsif v_Component in ('W', 'WW', 'WK', 'WEEK') then

     --周情况

     --一周的起始日期应当为星期日

     --关于周差的计算，尝试采用中间日期的方法

     --经查，‘1-1-2’即公元一年1月2日为周日，我们就可以用两个时间分别与其相减求周差

     --两个结果再相减，即可得到正确的数值

     v_WeekNum1    := floor((to_date(to_char(p_Subtranhend, 'YYYY-MM-DD'),

                                     'YYYY-MM-DD') -

                            to_date('1-1-2', 'YYYY-MM-DD')) / 7);

     v_WeekNum2    := floor((to_date(to_char(p_Minuend, 'YYYY-MM-DD'),

                                     'YYYY-MM-DD') -

                            to_date('1-1-2', 'YYYY-MM-DD')) / 7);

     v_ReturnValue := v_WeekNum2 - v_WeekNum1;

   else

     v_ReturnValue := -88888;

   end if;

   RETURN v_ReturnValue;

 EXCEPTION

   WHEN OTHERS THEN

     RETURN - 99999; --例外处理

 END datediff;

 函数三：

 create or replace function datepart(p_Component varchar2, p_Date date)

   RETURN NUMBER IS

   /*************************************************************************/

   /*       功   能：获取某个日期中的部分时间元件（日、月、年、分、秒、等） */

   /*       入参说明：        p_Component 时间元件，如年月日季度等等        */

   /*                          p_Date            需要解析的时间             */

   /*************************************************************************/

   v_Component   varchar2(10);

   v_ReturnValue NUMBER;

 BEGIN

   v_Component := upper(ltrim(rtrim(p_Component)));

   if v_Component in ('Y', 'YY', 'YEAR', 'YYYY') then

     --年情况

     v_ReturnValue := to_number(to_char(p_Date, 'YYYY'));

   elsif v_Component in ('M', 'MM', 'MONTH', 'MON') then

     --月情况

     v_ReturnValue := to_number(to_char(p_Date, 'MM'));

   elsif v_Component in ('D', 'DD', 'DAY') then

     --日情况

     v_ReturnValue := to_number(to_char(p_Date, 'DD'));

   elsif v_Component in ('H', 'HH', 'HOUR', 'HH24') then

     --时情况

     v_ReturnValue := to_number(to_char(p_Date, 'HH24'));

   elsif v_Component in ('MI', 'MINUTE') then

     --分情况

     v_ReturnValue := to_number(to_char(p_Date, 'MI'));

   elsif v_Component in ('S', 'SS', 'SECOND') then

     --秒情况

     v_ReturnValue := to_number(to_char(p_Date, 'SS'));

   elsif v_Component in ('Q', 'QQ', 'QUARTER') then

     --季度情况

     v_ReturnValue := to_number(to_char(p_Date, 'Q'));

   elsif v_Component in ('W', 'WW', 'WK', 'WEEK') then

     --周几情况（周日为第一天）

     v_ReturnValue := to_number(to_char(p_Date, 'D'));

   elsif v_Component in ('WEEK_NO') then

     -- 第几周情况

     v_ReturnValue := to_number(to_char(p_Date, 'IW'));

   else

     v_ReturnValue := -88888;

   end if;

   RETURN v_ReturnValue;

 EXCEPTION

   WHEN OTHERS THEN

     RETURN - 99999; --例外处理

 END datepart;

[转] SQL日期函数dayadd/datediff/datepart的更多相关文章

sqlserver日期函数 dateadd,datediff ,datepart ,datename,convert
reference:http://www.cnblogs.com/coconut_zhang/archive/2009/02/02/1382598.html http://blog.itpub.net ...
DB2 SQL 日期函数
DB2 SQL 日期函数1:CURRENT TIMESTAMP 函数:获取当前日期时间语法:CURRENT TIMESTAMP参数:当前日期时间返回值:当前日期时间 2:CURRENT DATE 函数 ...
四个很好用的Sql Server 日期函数：DateDiff、DatePart、DateAdd、DateName
我以前查一段时间范围内的数据都是在程序里计算好日期再掉查询语句,现在我用下面的函数.SQL SERVER没有查一季度数据的函数. DateDiff函数: 描述返回两个日期之间的时间间隔. 语法 Da ...
sql日期函数操作
sql语句获取本周.本月.本年数据 SQL Serverselect * from [data] where DATEPART(m,[date])=2 Accessselect * from [da ...
sql日期函数
1.sql常用日期函数当我们在进行数据处理的时候,常常需要用到日期函数的计算,最难的任务恐怕是确保所插入的日期的格式,与数据库中日期列的格式相匹配.只要数据包含的只是日期部分,运行查询就不会出问题. ...
sql日期函数总结
sql 时间转换格式 convert(varchar(10),字段名,转换格式) convert(varchar(10),字段名,转换格式) CONVERT(nvarchar(10),count_ ...
SQL 日期函数转换
1.转换函数与date操作关系最大的就是两个转换函数:to_date(),to_char() to_date() 作用将字符类型按一定格式转化为日期类型: 具体用法:to_date('2004-11 ...
Sql server日期函数用法
SQL日期函数 SQL日期函数中的类型码可以为0,1,2,3,4,5,6,7,8,9,10,11,12,13,14 ,20,21,22,23,24,25,100,101,102,103,104,105 ...
SQL日期查询语句
--查询当天(1: select * from ShopOrder where datediff(day,ordTime,getdate()-1)=0 --查询当天(2:select * from i ...

随机推荐

【转】Ubuntu英文系统下安装中文输入法
转自:https://my.oschina.net/No5stranger/blog/290026 ubuntu默认的输入法是ibus,综合网上评论,fcitx的支持者更多,而且个人感觉fcitx也的 ...
day062 中间件
中间件: 作用: 介于request和response之间的一到处理过程,相对比较轻量级,并且在全局上改变django的输入与输出,因为改变的是全局,所以需要谨慎使用,用不好会影响到性能. 当用户发 ...
oracle数据库SQL入门
1.oracle数据库的下载.安装.卸载 Oracle下载: Oracle下载链接地址:http://www.oracle.com/technetwork/cn/database/enterprise ...
ProtocolBuffer for Objective-C 运行环境配置及使用
1,我已经安装了brew.pod.protoc,如果您没安装,请按照下面方式安装. 安装很简单,对着README操作一遍即可,我贴出自己在终端的命令行.需要输入的命令行依次为:1)打开终端,查看mac ...
素数定理π(n)~n/lnn弱化版证明
在大半年前写的Miller-Rabin素数测试正确性证明中使用过此结论~当时完全不会证,现在进步了一点点会证弱化版的了Orz 完整版的素数定理: π(n):=|{p|p<=n,p是素数}| li ...
Mac + PyCharm 安装 Opencv3 + python2.7
本文地址:http://www.cnblogs.com/QingHuan/p/7354074.html 转载请注明本文地址,方便读者查看本文更新,谢谢! 今天要在Mac上安装OpenCV,过程非常曲折 ...
如何用Caffe训练自己的网络-探索与试验
现在一直都是用Caffe在跑别人写好的网络,如何运行自定义的网络和图片,是接下来要学习的一点. 1. 使用Caffe中自带的网络模型来运行自己的数据集参考 [1] :http://www.cnblo ...
RESTful Loads
RESTful 一种软件架构风格.设计风格,而不是标准,只是提供了一组设计原则和约束条件.它主要用于客户端和服务器交互类的软件.基于这个风格设计的软件可以更简洁,更有层次,更易于实现缓存等机制. 概述 ...
Google - Find Most People in Chat Log
1. 给你一个chatting log file,format大概是这样的: A: bla B: bla bla C: bla bla bla 要你找出说话最多(看word number) 的K个人 ...
PythonStudy——列表类型 List type
# 1.定义 ls = [3, 1, 2] # 语法糖 | 笑笑语法 print(ls) ls = list([3, 1, 2]) # 本质 print(ls) # 嵌套 ls = [3, 1, [3 ...

[转] SQL日期函数dayadd/datediff/datepart

[转] SQL日期函数dayadd/datediff/datepart的更多相关文章

随机推荐

热门专题