纠正公农历转换的VB代码 http://www.pc-soft.cn/blogview.asp?logID=4&page=1
顺便问：请问是否有阳历农历的直接转换公式？网上实现的都靠公历农历对照表。
http://www.pc-soft.cn/blogview.asp?logID=4&page=1有一个，也是用阳历农历对照表。顺便纠正几个编码错误。
1955-5-21 mistake is due to wrong initial value 457037C,change to 457137C
1989-8-1 mistake is due to wrong initial value 93700CE,change to 95700CE
2013-6-8 mistake is due to wrong initial value B5500D2,change to AD500D2
by VBAdvisor on 5/July/2007
Private Const ylData = "AB500D2,4BD0883, " _
& "4AE00DB,A5700D0,54D0581,D2600D8,D9500CC,655147D,56A00D5,9AD00CA,55D027A,4AE00D2, " _
& "A5B0682,A4D00DA,D2500CE,D25157E,B5500D6,56A00CC,ADA027B,95B00D3,49717C9,49B00DC, " _
& "A4B00D0,B4B0580,6A500D8,6D400CD,AB5147C,2B600D5,95700CA,52F027B,49700D2,6560682, " _
& "D4A00D9,EA500CE,6A9157E,5AD00D6,2B600CC,86E137C,92E00D3,C8D1783,C9500DB,D4A00D0, " _
& "D8A167F,B5500D7,56A00CD,A5B147D,25D00D5,92D00CA,D2B027A,A9500D2,B550781,6CA00D9, " _
& "B5500CE,535157F,4DA00D6,A5B00CB,457137C,52B00D4,A9A0883,E9500DA,6AA00D0,AEA0680, " _
& "AB500D7,4B600CD,AAE047D,A5700D5,52600CA,F260379,D9500D1,5B50782,56A00D9,96D00CE, " _
& "4DD057F,4AD00D7,A4D00CB,D4D047B,D2500D3,D550883,B5400DA,B6A00CF,95A1680,95B00D8, " _
& "49B00CD,A97047D,A4B00D5,B270ACA,6A500DC,6D400D1,AF40681,AB600D9,95700CE,4AF057F, " _
& "49700D7,64B00CC,74A037B,EA500D2,6B50883,5AC00DB,AB600CF,96D0580,92E00D8,C9600CD, " _
& "D95047C,D4A00D4,DA500C9,755027A,56A00D1,ABB0781,25D00DA,92D00CF,CAB057E,A9500D6, " _
& "B4A00CB,BAA047B,AD500D2,55D0983,4BA00DB,A5B00D0,5171680,52B00D8,A9300CD,795047D, " _
& "6AA00D4,AD500C9,5B5027A,4B600D2,96E0681,A4E00D9,D2600CE,EA6057E,D5300D5,5AA00CB, " _
& "76A037B,96D00D3,4AB0B83,4AD00DB,A4D00D0,D0B1680,D2500D7,D5200CC,DD4057C,B5A00D4, " _
& "56D00C9,55B027A,49B00D2,A570782,A4B00D9,AA500CE,B25157E,6D200D6,ADA00CA,4B6137B, " _
& "93700D3,49F08C9,49700DB,64B00D0,68A1680,EA500D7,6AA00CC,A6C147C,AAE00D4,92E00CA, " _
& "D2E0379,C9600D1,D550781,D4A00D9,DA400CD,5D5057E,56A00D6,A6C00CB,55D047B,52D00D3, " _
& "A9B0883,A9500DB,B4A00CF,B6A067F,AD500D7,55A00CD,ABA047C,A5A00D4,52B00CA,B27037A, " _
& "69300D1,7330781,6AA00D9,AD500CE,4B5157E,4B600D6,A5700CB,54E047C,D1600D2,E960882, " _
& "D5200DA,DAA00CF,6AA167F,56D00D7,4AE00CD,A9D047D,A2D00D4,D1500C9,F250279,D5200D1 "
[解决办法]
收藏了
[解决办法]
虽然平日在自己的程序里,很少用到关于农历的...但也来支持一下!
[解决办法]
收藏
======================================================
红松软件 http://hongsong.huanqiuit.com/
软件论坛 http://5x51.com/hongsong/
本网站推出只要注册本站会员，就送一套正版软件活动，此
活动截至日期2007-08-15。所需要点软件在本网站中自己挑
选一个。
论坛前10位会员，赠送VIP会员资格！！！
======================================================
[解决办法]
呵呵，楼主有心人！
这个网页是我的，上面的代码和数据是我很久前整理的，已经知道有几个错误。但是由于要核对200年中的日历资料，一直没的抽出时间去修正它。
现在楼主做了，感谢。:-)
[解决办法]
阳历农历的直接转换公式 好象没有的，特别是置闰这一块，需要天文学家观查月亮、太阳以及地球的位置关系来确定。
曾经看到过一个网页宣称可以计算任意日期的农历数据，但是...但是...正确性没办法验证。毕竟现在各大天文馆都只将农历计算到了2100年，这是可以验证的。以后年份的是否正确，就不知道了。
[解决办法]
寒，都是我的错。:-(
核对数据时最好使用香港天文台的数据，网上有些软件上的数据本身就是不准确的。我就是用网上的一些软件的数据对照整理的，所以错误不少！！
[解决办法]
强势~！
[解决办法]
楼主真有心。
当初我整理数据时就是使用一个网页版和一个免费小软件对照的，有时两软件就对不上。再加上我自己核对时可能也会出错，造成有不少错误。另外此代码原始代码中的数据我也没有核对过，直接照搬，相信也有错误在里面。
我想要完全正确，需要对全部的数据都核对一次才行。因为工作量不少，所以两年来我一直没完成它！
[解决办法]
我原贴的评论中自己收集了一个比较权威的网页，香港天文台。这里应该是官方数据，不会出错的！但数据是PDF的，要核对200年的资料，很要花时间。
http://www.weather.gov.hk/gts/time/conversionc.htm
[解决办法]
mark
