ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 79938|回复: 107

[原创] EXCEL农历函数COM加载宏版 真正的万年历(含10000年的农历及24节气信息)

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-1-20 17:53 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖已被收录到知识树中,索引项:其他插件和工具
本帖最后由 jdwang1000 于 2012-3-14 23:36 编辑

2013年历行事历  , 2014年历行事历 / EXCEL 万年历及农历函数下载
含 10000年(万年)的农历及24节气信息


加载宏万年国历农历转换函数 ( 转换范围 -5000 ~ 5000)  ( 1/5 )  

本加载宏函数安装完成后每当开启EXCEL时即可如EXCEL内建工作表函数使用

要查询 -5000 ~ 5000 年间的国历农历转换非常的便利且不需开启宏即能正常工作
农历转换后的档案储存为 xlsx檔 (2007)
2003 版为 xls (无宏)

欲下载此农历函数 Lunar_24_V1.20

Lunar_24_2003_簡體版.part03.rar (151.79 KB, 下载次数: 3341) ( 请下载三个档案(part01~part03)再一起解压缩 )

Lunar_24_2003_簡體版.part02.rar (200 KB, 下载次数: 3918) ( 请下载三个档案(part01~part03)再一起解压缩)

Lunar_24_2003_簡體版.part01.rar (200 KB, 下载次数: 3376) ( 请下载三个档案(part01~part03)再一起解压缩)

Solar Terms_24_2003.rar (202.71 KB, 下载次数: 2999) ( 24節氣函數版 )

本转换函数具有许多参数可供使用


Lunar(Year,Month,Day,Type)
Year --- 年 -5000 ~ 5000 (为了要适用 1900/01/01 以前的日期所以区分为 年 月 日 三项
Month --- 月
Day --- 日
Type --- 输出类型 可省略 (内定为0)


Type = 0   或省略 ( =Lunar(2012,4,20)  或 Lunar(2012,4,20,)  或 Lunar(2012,4,20,0)    三十 )
Type = 1   月日 ( =Lunar(2012,6,14,1)     闰四月(小) 廿五 )
Type = 20   月日国定假日 ( =Lunar(2012,6,23,20)    五月(大) 初五 端午节 )
Type = 21   月日农历节日 ( =Lunar(2012,2,23,21)    二月(小)初二 龙头节  )
Type = 22   月日农历及国历节日 ( =Lunar(2017,1,5,22)   腊月(大)初八  腊八节 冰雪节 )
Type = 23   月日国历节日 ( =Lunar(26,4,7,23)    三月(小)初二 卫生日 )
Type = 24   月日佛教节日 ( =Lunar(2152,5,2,24)    四月(小) 初八 释迦牟尼佛圣诞 )
Type = 25   月日道教节日 ( =Lunar(2152,12,21,25)    冬月(大) 廿六 北方五道圣诞 元始天尊诞 )
Type = 6   历代年号 ( =Lunar(-265,,,6)    【 战国-秦 】 昭襄王 ( 嬴则 ) 昭襄王41年 )
注意 !! 历代年号范围为公元前 -2069 年( =Lunar(-2069,,,6) 【 夏 】 禹1年 ) 开始 )


Type = 71   农历节日 ( =Lunar(2013,10,13,71)    重阳节 )
Type = 72   农历及国历节日 ( =Lunar(2065,3,8,72)    龙头节 妇女节 )
Type = 73   国历节日 ( =Lunar(2011,9,10,73)     教师节 )
Type = 74   佛教节日 ( =Lunar(2011,7,19,74)     观音菩萨成道 )
Type = 75   道教节日 ( =Lunar(2011,10,5,75)     北斗九星降世辰 斗姥元君 九皇星君 重阳帝君 玄天上帝飞升 中坛元帅 丰都大帝圣诞 )
Type = 8   24节气 ( =Lunar(2011,12,22,8)     冬至 ) 注意 : 若不是节气日子则传回空字符串
Type = 9   农历年 天干地支 生肖 月 日 星期 节气
( =Lunar(2012,1,21,9)     农历2011年 辛卯 [ 兔 ] 腊月(小) 廿八 星期六 大寒 )
( =Lunar(15,2,6,9)     农历14年 甲戌 [ 狗 ] 腊月(大) 廿九 星期三 立春 )


当查询日期为 1900/1/1 ~ 5000/12/31 时则函数内可套用 EXCEL 的日期时间并省略月日参数
例如当单元格  [A1] = 2012/1/24   则在 [B2] 可输入 =Lunar(A1,,,9)     农历2012年 壬辰 [ 龙 ] 正月(大) 初二 星期二
=Lunar(A1,,,22)     正月(大) 初二 年初二 回娘家
也可使用如下函数 =Lunar(-854,12,14,6)&Lunar(-854,12,14,9)     将得到如下的结果
【 西周 】 厉王 ( 姬胡 ) 厉王23年农历-854年 丙午 [ 马 ] 冬月(小) 初八 星期五 大雪
此函数可自由灵活搭配使用就如同工作表函数一般


当下载压缩文件解压缩后可得到个档案
Calendar_2003.xls 为万年行事历含农历及24节气 EXCEL 2003 版
Calendar_2007.xlsx 为万年行事历含农历及24节气 EXCEL 2007 版  
1. Lunar_24_V1.20_2003_Beta.dll
2. Lunar_24_V1.20_2003Beta.xla
3. Install.xls  
4. Calendar_2003.xls ( 有使用COM加载宏农历函数 Lunar() , 请先正确执行 Install.xls 才能正常显示 )  
5. Calendar_2007.xlsx ( 有使用COM加载宏农历函数 Lunar() , 请先正确执行 Install.xls 才能正常显示
6. 农历函数使用说明.doc

请注意 : 须以系统管理员身分执行此安装程序才能正常安装 dll 动态链接文件
其中   Install.xls   为安装文件 直接开启他并允许宏执行
当按下安全性警告  已经停用宏  旁的 [ 选项 ....] 按钮



若出现安全性警讯如图


按下 启用这个内容(E)  的核取钮并按下确定


再次按下 [ 安装 (2003版)  Lunar_24_V1.20Beta ] 即可自动安装

执行后将先出现确认系统管理员身分提醒



如果安装期间出现如下窗口



则只要按下确定按钮安装程序将再次执行安装程序

待安装完成后会出现如下讯息窗口



当看到此窗口后即表示一切安装已正常完成此时按下确定按钮后 EXCEL 会自动关闭
重新启动EXCEL后会有一确定讯息窗口如下

按下确定钮后即可如EXCEL内建函数般自在的使用此国历转农历函数




2012.jpg
1582.jpg
-125.jpg

评分

4

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-1-20 18:51 | 显示全部楼层
不能下载啊。

TA的精华主题

TA的得分主题

发表于 2012-1-20 20:16 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-20 21:27 | 显示全部楼层
三楼的大大
如果说明中有连结到部落格是属于广告帖
那我就自己删除吧
如有需要此农历函数的更多讯息
就请有兴趣者自己搜寻吧

TA的精华主题

TA的得分主题

发表于 2012-1-25 20:32 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-1-25 21:32 | 显示全部楼层
楼主上下五千年的农历函数的开发非常不简单,对你的精神与努力表示敬佩。
不过我有些担心,古代的历法随着我国古代数学家和天文学家们的数学知识的进步而有过很多次改革,有名称可考的中国古代历法,据汪曰桢《历代长术考》、朱文鑫《历法通志》、毋茍先生《中国历法制度沿革史》三书记载,有115种。
公元前104年,由邓平等制定的《太初历》,正式把二十四节气订于历法,明确了二十四节气的天文位置。
在春秋时代只有4个节气,最难的是闰年的设置,也改变了多次,所以我想如果要查找古代的农历日期会很困难的。希望我的担心是多余的。

TA的精华主题

TA的得分主题

发表于 2012-1-26 11:34 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
看起来很深奥!谢谢分享!!!

TA的精华主题

TA的得分主题

发表于 2012-1-26 12:04 | 显示全部楼层
楼主真上超级牛人,在下深表佩服!

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-26 18:03 | 显示全部楼层
蓝桥玄霜 发表于 2012-1-25 21:32
楼主上下五千年的农历函数的开发非常不简单,对你的精神与努力表示敬佩。
不过我有些担心,古代的历法随着 ...

您的擔心其實可在壽星天文曆中得到部分解答
壽星天文曆有針對古代曆法及節氣做修正
而我的農曆函數只是純現代的天文演算法
至於農曆的置閏規則則在函數說明中有解釋
( 和榮筆記 -- 中國農曆規則和日曆原理 )
本農曆函數有說明與壽星天文曆的誤差原因
http://club.excelhome.net/thread-788518-1-1.html
因為本函數的修正項忠於NASA網站
所以要說誰的程式較準確可能沒人能證明

TA的精华主题

TA的得分主题

发表于 2012-1-27 11:04 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-21 22:38 , Processed in 0.044155 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表