|
|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 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, 下载次数: 3359)
( 请下载三个档案(part01~part03)再一起解压缩 )
Lunar_24_2003_簡體版.part02.rar
(200 KB, 下载次数: 3934)
( 请下载三个档案(part01~part03)再一起解压缩)
Lunar_24_2003_簡體版.part01.rar
(200 KB, 下载次数: 3393)
( 请下载三个档案(part01~part03)再一起解压缩)
Solar Terms_24_2003.rar
(202.71 KB, 下载次数: 3013)
( 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内建函数般自在的使用此国历转农历函数
|
评分
-
4
查看全部评分
-
|
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2012-1-20 17:53
楼主
发表于 2012-1-25 21:32
