oracle阴历解决方案
2024-04-20 18:23:20
1、新建年份编码表
/将日期转换成农历的表/
CREATE TABLE SolarData
(
YearID INTEGER NOT NULL, -- 农历表
DATA CHAR(7) NOT NULL, -- 农历年对应的16进制数
DataInt INTEGER NOT NULL -- 农历年对应的10进制数
);
2、为年份编码表插入数据
INSERT INTO SolarData VALUES(1900, '0x04bd8', 19416);
INSERT INTO SolarData VALUES(1901, '0x04ae0', 19168);
INSERT INTO SolarData VALUES(1902, '0x0a570', 42352);
INSERT INTO SolarData VALUES(1903, '0x054d5', 21717);
INSERT INTO SolarData VALUES(1904, '0x0d260', 53856);
INSERT INTO SolarData VALUES(1905, '0x0d950', 55632);
INSERT INTO SolarData VALUES(1906, '0x16554', 91476);
INSERT INTO SolarData VALUES(1907, '0x056a0', 22176);
INSERT INTO SolarData VALUES(1908, '0x09ad0', 39632);
INSERT INTO SolarData VALUES(1909, '0x055d2', 21970);
INSERT INTO SolarData VALUES(1910, '0x04ae0', 19168);
INSERT INTO SolarData VALUES(1911, '0x0a5b6', 42422);
INSERT INTO SolarData VALUES(1912, '0x0a4d0', 42192);
INSERT INTO SolarData VALUES(1913, '0x0d250', 53840);
INSERT INTO SolarData VALUES(1914, '0x1d255', 119381);
INSERT INTO SolarData VALUES(1915, '0x0b540', 46400);
INSERT INTO SolarData VALUES(1916, '0x0d6a0', 54944);
INSERT INTO SolarData VALUES(1917, '0x0ada2', 44450);
INSERT INTO SolarData VALUES(1918, '0x095b0', 38320);
INSERT INTO SolarData VALUES(1919, '0x14977', 84343);
INSERT INTO SolarData VALUES(1920, '0x04970', 18800);
INSERT INTO SolarData VALUES(1921, '0x0a4b0', 42160);
INSERT INTO SolarData VALUES(1922, '0x0b4b5', 46261);
INSERT INTO SolarData VALUES(1923, '0x06a50', 27216);
INSERT INTO SolarData VALUES(1924, '0x06d40', 27968);
INSERT INTO SolarData VALUES(1925, '0x1ab54', 109396);
INSERT INTO SolarData VALUES(1926, '0x02b60', 11104);
INSERT INTO SolarData VALUES(1927, '0x09570', 38256);
INSERT INTO SolarData VALUES(1928, '0x052f2', 21234);
INSERT INTO SolarData VALUES(1929, '0x04970', 18800);
INSERT INTO SolarData VALUES(1930, '0x06566', 25958);
INSERT INTO SolarData VALUES(1931, '0x0d4a0', 54432);
INSERT INTO SolarData VALUES(1932, '0x0ea50', 59984);
INSERT INTO SolarData VALUES(1933, '0x06e95', 28309);
INSERT INTO SolarData VALUES(1934, '0x05ad0', 23248);
INSERT INTO SolarData VALUES(1935, '0x02b60', 11104);
INSERT INTO SolarData VALUES(1936, '0x186e3', 100067);
INSERT INTO SolarData VALUES(1937, '0x092e0', 37600);
INSERT INTO SolarData VALUES(1938, '0x1c8d7', 116951);
INSERT INTO SolarData VALUES(1939, '0x0c950', 51536);
INSERT INTO SolarData VALUES(1940, '0x0d4a0', 54432);
INSERT INTO SolarData VALUES(1941, '0x1d8a6', 120998);
INSERT INTO SolarData VALUES(1942, '0x0b550', 46416);
INSERT INTO SolarData VALUES(1943, '0x056a0', 22176);
INSERT INTO SolarData VALUES(1944, '0x1a5b4', 107956);
INSERT INTO SolarData VALUES(1945, '0x025d0', 9680);
INSERT INTO SolarData VALUES(1946, '0x092d0', 37584);
INSERT INTO SolarData VALUES(1947, '0x0d2b2', 53938);
INSERT INTO SolarData VALUES(1948, '0x0a950', 43344);
INSERT INTO SolarData VALUES(1949, '0x0b557', 46423);
INSERT INTO SolarData VALUES(1950, '0x06ca0', 27808);
INSERT INTO SolarData VALUES(1951, '0x0b550', 46416);
INSERT INTO SolarData VALUES(1952, '0x15355', 86869);
INSERT INTO SolarData VALUES(1953, '0x04da0', 19872);
INSERT INTO SolarData VALUES(1954, '0x0a5d0', 42448);
INSERT INTO SolarData VALUES(1955, '0x14573', 83315);
INSERT INTO SolarData VALUES(1956, '0x052d0', 21200);
INSERT INTO SolarData VALUES(1957, '0x0a9a8', 43432);
INSERT INTO SolarData VALUES(1958, '0x0e950', 59728);
INSERT INTO SolarData VALUES(1959, '0x06aa0', 27296);
INSERT INTO SolarData VALUES(1960, '0x0aea6', 44710);
INSERT INTO SolarData VALUES(1961, '0x0ab50', 43856);
INSERT INTO SolarData VALUES(1962, '0x04b60', 19296);
INSERT INTO SolarData VALUES(1963, '0x0aae4', 43748);
INSERT INTO SolarData VALUES(1964, '0x0a570', 42352);
INSERT INTO SolarData VALUES(1965, '0x05260', 21088);
INSERT INTO SolarData VALUES(1966, '0x0f263', 62051);
INSERT INTO SolarData VALUES(1967, '0x0d950', 55632);
INSERT INTO SolarData VALUES(1968, '0x05b57', 23383);
INSERT INTO SolarData VALUES(1969, '0x056a0', 22176);
INSERT INTO SolarData VALUES(1970, '0x096d0', 38608);
INSERT INTO SolarData VALUES(1971, '0x04dd5', 19925);
INSERT INTO SolarData VALUES(1972, '0x04ad0', 19152);
INSERT INTO SolarData VALUES(1973, '0x0a4d0', 42192);
INSERT INTO SolarData VALUES(1974, '0x0d4d4', 54484);
INSERT INTO SolarData VALUES(1975, '0x0d250', 53840);
INSERT INTO SolarData VALUES(1976, '0x0d558', 54616);
INSERT INTO SolarData VALUES(1977, '0x0b540', 46400);
INSERT INTO SolarData VALUES(1978, '0x0b5a0', 46496);
INSERT INTO SolarData VALUES(1979, '0x195a6', 103846);
INSERT INTO SolarData VALUES(1980, '0x095b0', 38320);
INSERT INTO SolarData VALUES(1981, '0x049b0', 18864);
INSERT INTO SolarData VALUES(1982, '0x0a974', 43380);
INSERT INTO SolarData VALUES(1983, '0x0a4b0', 42160);
INSERT INTO SolarData VALUES(1984, '0x0b27a', 45690);
INSERT INTO SolarData VALUES(1985, '0x06a50', 27216);
INSERT INTO SolarData VALUES(1986, '0x06d40', 27968);
INSERT INTO SolarData VALUES(1987, '0x0af46', 44870);
INSERT INTO SolarData VALUES(1988, '0x0ab60', 43872);
INSERT INTO SolarData VALUES(1989, '0x09570', 38256);
INSERT INTO SolarData VALUES(1990, '0x04af5', 19189);
INSERT INTO SolarData VALUES(1991, '0x04970', 18800);
INSERT INTO SolarData VALUES(1992, '0x064b0', 25776);
INSERT INTO SolarData VALUES(1993, '0x074a3', 29859);
INSERT INTO SolarData VALUES(1994, '0x0ea50', 59984);
INSERT INTO SolarData VALUES(1995, '0x06b58', 27480);
INSERT INTO SolarData VALUES(1996, '0x055c0', 21952);
INSERT INTO SolarData VALUES(1997, '0x0ab60', 43872);
INSERT INTO SolarData VALUES(1998, '0x096d5', 38613);
INSERT INTO SolarData VALUES(1999, '0x092e0', 37600);
INSERT INTO SolarData VALUES(2000, '0x0c960', 51552);
INSERT INTO SolarData VALUES(2001, '0x0d954', 55636);
INSERT INTO SolarData VALUES(2002, '0x0d4a0', 54432);
INSERT INTO SolarData VALUES(2003, '0x0da50', 55888);
INSERT INTO SolarData VALUES(2004, '0x07552', 30034);
INSERT INTO SolarData VALUES(2005, '0x056a0', 22176);
INSERT INTO SolarData VALUES(2006, '0x0abb7', 43959);
INSERT INTO SolarData VALUES(2007, '0x025d0', 9680);
INSERT INTO SolarData VALUES(2008, '0x092d0', 37584);
INSERT INTO SolarData VALUES(2009, '0x0cab5', 51893);
INSERT INTO SolarData VALUES(2010, '0x0a950', 43344);
INSERT INTO SolarData VALUES(2011, '0x0b4a0', 46240);
INSERT INTO SolarData VALUES(2012, '0x0baa4', 47780);
INSERT INTO SolarData VALUES(2013, '0x0ad50', 44368);
INSERT INTO SolarData VALUES(2014, '0x055d9', 21977);
INSERT INTO SolarData VALUES(2015, '0x04ba0', 19360);
INSERT INTO SolarData VALUES(2016, '0x0a5b0', 42416);
INSERT INTO SolarData VALUES(2017, '0x15176', 86390);
INSERT INTO SolarData VALUES(2018, '0x052b0', 21168);
INSERT INTO SolarData VALUES(2019, '0x0a930', 43312);
INSERT INTO SolarData VALUES(2020, '0x07954', 31060);
INSERT INTO SolarData VALUES(2021, '0x06aa0', 27296);
INSERT INTO SolarData VALUES(2022, '0x0ad50', 44368);
INSERT INTO SolarData VALUES(2023, '0x05b52', 23378);
INSERT INTO SolarData VALUES(2024, '0x04b60', 19296);
INSERT INTO SolarData VALUES(2025, '0x0a6e6', 42726);
INSERT INTO SolarData VALUES(2026, '0x0a4e0', 42208);
INSERT INTO SolarData VALUES(2027, '0x0d260', 53856);
INSERT INTO SolarData VALUES(2028, '0x0ea65', 60005);
INSERT INTO SolarData VALUES(2029, '0x0d530', 54576);
INSERT INTO SolarData VALUES(2030, '0x05aa0', 23200);
INSERT INTO SolarData VALUES(2031, '0x076a3', 30371);
INSERT INTO SolarData VALUES(2032, '0x096d0', 38608);
INSERT INTO SolarData VALUES(2033, '0x04bd7', 19415);
INSERT INTO SolarData VALUES(2034, '0x04ad0', 19152);
INSERT INTO SolarData VALUES(2035, '0x0a4d0', 42192);
INSERT INTO SolarData VALUES(2036, '0x1d0b6', 118966);
INSERT INTO SolarData VALUES(2037, '0x0d250', 53840);
INSERT INTO SolarData VALUES(2038, '0x0d520', 54560);
INSERT INTO SolarData VALUES(2039, '0x0dd45', 56645);
INSERT INTO SolarData VALUES(2040, '0x0b5a0', 46496);
INSERT INTO SolarData VALUES(2041, '0x056d0', 22224);
INSERT INTO SolarData VALUES(2042, '0x055b2', 21938);
INSERT INTO SolarData VALUES(2043, '0x049b0', 18864);
INSERT INTO SolarData VALUES(2044, '0x0a577', 42359);
INSERT INTO SolarData VALUES(2045, '0x0a4b0', 42160);
INSERT INTO SolarData VALUES(2046, '0x0aa50', 43600);
INSERT INTO SolarData VALUES(2047, '0x1b255', 111189);
INSERT INTO SolarData VALUES(2048, '0x06d20', 27936);
INSERT INTO SolarData VALUES(2049, '0x0ada0', 44448);
COMMIT;
3、编写阳历转阴历函数
CREATE OR REPLACE FUNCTION f_getNongLi(i_SolarDay DATE)
RETURN VARCHAR2-- 功能：计算阳历1900/01/31 - 2050/01/22间某一天对应的阴历是多少-- 算法：在一张表中用10进制格式保存某个农历年每月大小,有无闰月,闰月大小信息-- 1.用12个2进制位来表示某个农历年每月的大小，大月记为1，否则为0-- 2.用低4位来表示闰月的月份，没有闰月记为0-- 3.用一个高位表示闰月的大小，闰月大记为0，闰月小或无闰月记为0-- 4.再将该2进制数转化为10进制，存入表中-- 农历2000年: 0 110010010110 0000 -> 0x0c960 -> 51552-- 农历2001年: 0 110110010101 0100 -> 0x0d954 -> 55636-- 采用查表的方式计算出农历日期-- 作者：Angel_XJW -- 修改：1.-- 2.
ASv_OffSet INT;v_Lunar INT; -- 农历年是否含闰月,几月是闰月,闰月天数,其它月天数v_YearDays INT; -- 农历年所含天数v_MonthDays INT; -- 农历月所含天数v_LeapMonthDays INT; -- 农历闰月所含天数v_LeapMonth INT; -- 农历年闰哪个月 1-12 , 没闰传回 0v_LeapFlag INT; -- 某农历月是否为闰月 1:是 0:不是v_MonthNo INT; -- 某农历月所对应的2进制数 如农历3月: 001000000000 i INT;j INT; k INT;v_Year INT; -- i_SolarDay 对应的农历年v_Month INT; -- i_SolarDay 对应的农历月v_Day INT; -- i_SolarDay 对应的农历日o_OutputDate VARCHAR2(25); -- 返回值 格式：农历 ****年 **(闰)月 **日 e_ErrMsg VARCHAR2(200);e_ErrDate EXCEPTION;
BEGIN--输入参数判断IF i_SolarDay<TO_DATE('2000-01-31','YYYY-MM-DD') OR i_SolarDay>=TO_DATE('2050-01-23','YYYY-MM-DD') THENRAISE e_ErrDate;END IF ;-- i_SolarDay 到 1900-01-30(即农历1900-01-01的前一天) 的天数v_OffSet := TRUNC(i_SolarDay, 'DD') - TO_DATE('1900-01-30', 'YYYY-MM-DD');-- 确定农历年开始i := 1900;WHILE i < 2050 AND v_OffSet > 0 LOOPv_YearDays := 348; -- 29*12 以每年12个农历月,每个农历月含29个农历日为基数v_LeapMonthDays := 0;-- 取出农历年是否含闰月,几月是闰月,闰月天数,其它月天数-- 如农历2001年: 0x0d954(16进制) -> 55636(10进制) -> 0 110110010101 0100(2进制)-- 1,2,4,5,8,10,12月大, 3,6,7,9,11月小, 4月为闰月，闰月小SELECT DataInt INTO v_Lunar FROM SolarData WHERE YearId = i;-- 传回农历年的总天数j := 32768; -- 100000000000 0000 -> 32768-- 0 110110010101 0100 -> 55636(农历2001年)-- 依次判断v_Lunar年个月是否为大月，是则加一天 WHILE j > 8 LOOP -- 闰月另行判断 8 -> 0 000000000000 1000 IF BITAND(v_Lunar, j) + 0 > 0 thenv_YearDays := v_YearDays + 1;END IF;j := j/2; -- 判断下一个月是否为大END LOOP;-- 传回农历年闰哪个月 1-12 , 没闰传回 0 15 -> 1 0000v_LeapMonth := BITAND(v_Lunar, 15) + 0;-- 传回农历年闰月的天数 ,加在年的总天数上IF v_LeapMonth > 0 THEN-- 判断闰月大小 65536 -> 1 000000000000 0000 IF BITAND(v_Lunar, 65536)+0 > 0 THENv_LeapMonthDays := 30;ELSEv_LeapMonthDays := 29;END IF;v_YearDays := v_YearDays + v_LeapMonthDays;END IF;v_OffSet := v_OffSet - v_YearDays;i := i + 1;END LOOP;IF v_OffSet <= 0 THEN-- i_SolarDay 在所属农历年(即i年)中的第 v_OffSet 天 v_OffSet := v_OffSet + v_YearDays; i := i - 1;END IF;-- 确定农历年结束v_Year := i;-- 确定农历月开始i := 1;SELECT DataInt INTO v_Lunar FROM SolarData WHERE YearId = v_Year; -- 判断那个月是润月-- 如农历2001年 (55636,15 -> 0 1101100101010100, 1111 -> 4) 即润4月,且闰月小v_LeapMonth := BITAND(v_Lunar, 15) + 0; v_LeapFlag := 0;WHILE i < 13 AND v_OffSet > 0 LOOP-- 判断是否为闰月v_MonthDays := 0;IF (v_LeapMonth > 0 AND i = (v_LeapMonth + 1) AND v_LeapFlag = 0) THEN-- 是闰月i := i - 1;k := i; -- 保存是闰月的时i的值v_LeapFlag := 1;-- 传回农历年闰月的天数IF BITAND(v_Lunar, 65536)+0 > 0 THENv_MonthDays := 30;ELSEv_MonthDays := 29;END IF;ELSE-- 不是闰月j := 1;v_MonthNo := 65536;-- 计算 i 月对应的2进制数 如农历3月: 001000000000WHILE j<= i LOOPv_MonthNo := v_MonthNo/2;j := j + 1;END LOOP;-- 计算农历 v_Year 年 i 月的天数IF BITAND(v_Lunar, v_MonthNo)+0 > 0 THENv_MonthDays := 30;ELSEv_MonthDays := 29;END IF;END IF;-- 解除闰月IF v_LeapFlag = 1 AND i = v_LeapMonth +1 THENv_LeapFlag := 0;END IF;v_OffSet := v_OffSet - v_MonthDays;i := i + 1;END LOOP;IF v_OffSet <= 0 THEN-- i_SolarDay 在所属农历月(即i月)中的第 v_OffSet 天 v_OffSet := v_OffSet + v_MonthDays;i := i - 1;END IF;-- 确定农历月结束v_Month := i;-- 确定农历日结束v_Day := v_OffSet;-- 格式化返回值o_OutputDate := TO_CHAR(v_Year);IF k = i THENo_OutputDate := o_OutputDate || LPAD(TO_CHAR(v_Month), 2, '0');ELSEo_OutputDate := o_OutputDate || LPAD(TO_CHAR(v_Month), 2, '0');END IF;o_OutputDate := o_OutputDate || LPAD(TO_CHAR(v_Day), 2, '0');RETURN o_OutputDate;
EXCEPTIONWHEN e_Errdate THENRETURN '日期错误! 有效范围(阳历): 1900/01/31 - 2050/01/22';WHEN OTHERS THENe_ErrMsg :=SUBSTR(SQLERRM,1,200);RETURN e_ErrMsg;
END;
/
4、建立阳历_阴历表
create table t_yangli_yinli(yangli date,yinli varchar2(10))
5、调用函数插入所有的数据(通过循环获得2000年到2049年的数据)
insert into T_YANGLI_YINLI
SELECT TRUNC(TO_DATE('2000-01-01', 'yyyy-mm-dd')) + ROWNUM - 1 AS DATES ,
f_getNongLi(TRUNC(TO_DATE('2000-01-01', 'yyyy-mm-dd')) + ROWNUM - 1)AS DATES2--对应的农历
FROM ALL_OBJECTS
WHERE TRUNC(TO_DATE('2000-01-01', 'yyyy-mm-dd')) + ROWNUM - 1 < TRUNC(TO_DATE('2049-08-23', 'yyyy-mm-dd'))
6、节假日的过滤
基本工作完成，下一步是判断节假日，中秋端午好办，时间对应的阴历时间的month+day不为‘0505’、‘0815’即可，但是除夕需要特殊解决，因为无法确定除夕对应的阴历日期，一个解决方法是，把要判断时间加1，也就是使用其后一天来查询农历，如果对应的阴历时间的month+day为‘0101’、‘0102’、‘0103’、‘0506’、‘0816’即可
PS：获取农历的函数只支持1900到2049年的数据，所以如果需要获取更多的数据，需在年份编码表插入按规则编码的年份数据，同样在第六步进行相应的更改以获得更多的数据。
oracle阴历解决方案相关推荐
- oracle fra空间不足,ORACLE 基础解决方案1_扩大FRA区
ORACLE 基础解决方案(一) Reviewing the Database Architecture Reviewing the Database Architecture 回顾数据库结构 For ...
- Oracle数据安全解决方案（1）——透明数据加密TDE
Oracle数据安全解决方案(1)--透明数据加密TDE 2009年09月23日 22:49:00 华仔爱技术 阅读数:7991 原文地址: http://www.oracle.com/technol ...
- oracle simphony_绿云成为Oracle Hospitality解决方案和甲骨文产品最新分销商
杭州2017年11月15日电 /美通社/ -- Oracle Hospitality近日宣布,甲骨文合作伙伴网(OPN)白金成员及甲骨文分销商杭州绿云软件有限公司将分销.实施和支持Oracle Hos ...
- Oracle数据库解决方案集锦
前言 大家好,在进入正题之前,首先想说一下为什么会有这篇文章.经常有用户或者销售来问我,我们Oracle有没有数字化转型的方案?有没有数据底座,湖仓一体的方案?有没有大数据,数据治理的方案?诸如此类. ...
- 远程桌面提示这可能是由于CredSSP加密Oracle修正解决方案
远程桌面 提示 以下内容 出现身份验证错误 要求的函数不受支持 这可能是由于CredSSP 加密Oracle 修正 解决方案 如下 1.Win+R 输入regedit打开注册表 找到对应的以下目录 H ...
- oracle hrms,Oracle HRMS解决方案.pdf
Oracle HRMS解决方案 Oracle人力资源管理系统人力资源管理系统 人力资源管理系统人力资源管理系统 徐辰宇徐辰宇 徐辰宇徐辰宇 应用产品高级咨询顾问 人力资源管理系统 Oracle 中国 ...
- Oracle备份解决方案
备份解决方案 使用以下方法可执行备份: Recovery Manager Oracle Secure Backup 用户管理的备份 Recovery Manager (RMAN) 是推荐使用的 Ora ...
- oracle 常用故障,Oracle常见问题解决方案汇总
1.Oracle 11g ORA-12514:TNS:监听程序当前无法识别连接描述符中请求的服务 数据库服务器崩了,而且尝试重启服务和重启机器都解决不了问题 打开cmd窗口 C:\Users\hxt& ...
- ASCP Oracle供应链解决方案
有一朋友问起来的..找了相关资料,自己收藏..以便有时间学习 Oracle® Advanced Supply Chain Planning (ASCP) 是一套基于互联网的规划解决方案,通过分析供应链 ...
最新文章
- 开机后能解锁吗_黔隆科技刷机教程360奇酷Q5PLUS(1509A00)忘记密码刷机解锁降级救砖解屏幕锁账户锁教程...
- change element 原始值_change-element
- 零基础自学编程前需要知道的知识
- Android 闹钟
- python绘制正方形、利用turlr_《像计算机科学家一样思考Python》学习笔记（四）...
- [Python學習筆記] 使用xlwings 插入註解 (forked 版本)
- 多功能小游戏神器微信小程序源码
- excel打开超链接不使用浏览器，使用默认图片浏览软件
- java 无领导小组面试,无领导小组讨论面试前的准备不包括：（ ）
- 基于matlab算法的可靠度分析,参考基于matlab算法的可靠度分析
- 博客篇-如何使用阿里云搭建网站
- revit相关报错合集
- Linux 解压缩Windows下zip和WinRAR的分卷文件（奇怪的知识点）
- 电子科大信软互＋班 程算I 2021机考真题
- JATG篇(1)——FT2232H入门
- 创业陷阱——逐一点评301个骗你没商量的项目
- 长庆油田嬗变记：“骑着毛驴”踏上“信息高速路”
- 混沌与秩序服务器维护,混沌与秩序2切换角色以及服务器教程 注销账号教程
- js实现的在线绘图板，写字板
- win7的系统怎么进入win10服务器,肿么把win7系统升级到win10
热门文章
- 小程序码生成errcode：47001
- 河南理工大学大学计算机基础知识点,河南理工大学 2008-2009 学年第 1 学期 《大学计算机基础》答题纸(A卷).doc...
- 南瑞rt21系统服务器,南瑞“一种基于CORBA的综合监控系统数据定义和存取方法”等三项科技成果获专利授权...
- 创业公司如何制定员工股份和股权的分配？
- CDSP基于《数据安全法》和《个人信息保护法》的数据安全专家认证
- retain与remain、sustain与maintain区别
- 基因预测软件：【BRAKER2】软件的安装
- static关键字的作用
- static 关键字用法总结
- win10 局域网其他电脑/手机无法访问我的web项目