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

布拉格王子

楼主设了有效期么？好像说DLL过期

jdwang1000

布拉格王子 发表于 2012-1-27 18:58
楼主设了有效期么？好像说DLL过期

程序开发期间设定了查询 12000 次就会传回此讯息
只要在任一工作表的 A1 单元格输入  DW_Rest
不需存盘关闭EXCEL
再重新开启EXCEL即可再次使用

布拉格王子

谢谢楼主，12000次，难道我用了这么多次？

布拉格王子

报告楼主，还是不行，无法使用。我实际上只使用了一次，不过对90年以来的数据进行了一次检验。第二次就不能使用了。{:soso_e101:}

jdwang1000

請問是出現如下的提示嗎?





如果是此情況則請下載所附之 Reset.rar 解壓之後執行此巨集應該就會正常

此巨集程式碼非常簡單源碼你可參考看看

Reset.rar (7.54 KB, 下载次数: 275)

2012-1-28 06:47 上传

点击文件名下载附件

355177807

东西不错啊，很实用。
不过继续提个意见：可否加个阴历天数或年数的计算公式？即：计算2个阴历日期之间经历的天数，或阴历与阳历当前日期之间经历的天数？

jdwang1000

355177807 发表于 2012-2-6 22:25
东西不错啊，很实用。
不过继续提个意见：可否加个阴历天数或年数的计算公式？即：计算2个阴历日期之间经历 ...

計算日數差的公式早就內含在此函數中了只是未詳細介紹

1. 2012/2/1 ~ 2012/5/31 儲存格公式為  = gc_jd(2012,5,31)-gc_jd(2012,2,1)  --> 120

2. 1806/7/9 ~ 1806/8/8 儲存格公式為  =gc_jd(1806,8,8)-gc_jd(1806,7,9)  --> 30

3. 1582/10/1 ~ 1582/10/31 儲存格公式為 =gc_jd(1582,10,31)-gc_jd(1582,10,1)  --> 20

因為 1582/10/4 的下一天是 1582/10/15 所以 1582年10月只有21天

355177807

jdwang1000 发表于 2012-2-9 22:08
計算日數差的公式早就內含在此函數中了只是未詳細介紹

1. 2012/2/1 ~ 2012/5/31 儲存格公式為  = gc_ ...

这个可以计算天数，不过不能计算年数，比如按照阴历计算生日，这个可以实现么？
还有个jd_gc是干嘛用的？

jdwang1000

355177807 发表于 2012-2-10 07:02
这个可以计算天数，不过不能计算年数，比如按照阴历计算生日，这个可以实现么？
还有个jd_gc是干嘛用的？ ...

1. 年數算法應該不需要特別處理吧, 兩個年份相減不就有了

2. jd_gc 函數是將儒略日轉換為格理曆(就是現在使用的公曆)的函數

3.  gc_jd 函數是將格理曆轉換為儒略日的函數


2012/2/28 的儒略日值為 2455985.5

所以 jd_gc(2455985.5) = 40967  

--> 設定格式為 yyyy-mm-dd  hh:mm:ss 將顯示為 2012-02-28  00:00:00

jd_gc(2455985.98566) = 40967.48566  

--> 設定格式為 yyyy-mm-dd  hh:mm:ss 將顯示為 2012-02-28  11:39:21

jd_gc(2284589.256) = 1542 _ 11 _ 12　　18:08:38

要計算公元前的曆日需使用到此兩個函數來轉換



詳細的曆算資訊可參考  牧夫天文论坛  http://www.astronomy.com.cn/bbs/

355177807

jdwang1000 发表于 2012-2-11 10:19
1. 年數算法應該不需要特別處理吧, 兩個年份相減不就有了

2. jd_gc 函數是將儒略日轉換為格理曆(就是現 ...

谢谢指导。等碰到新问题再来请教。