资源描述：
《如何在excel中实现阳历转化阴历》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、步骤一，在Excel工作表界面下按组合键打开VBA窗口，进入VBA编辑环境，在其窗口的菜单栏上依次单击“插入”→“模块”，可在当前VBA工程中插入模块，并直接进入此模块的代码编辑区域。可在此编辑区域中输入自定义函数的程序代码,如图：PublicFunctionNongLi(OptionalXX_DATEAsDate) DimMonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12) DimcurTime,curYear,curMonth,
2、curDay DimGongliStr,NongliStr,NongliDayStr Dimi,m,n,k,isEnd,bit,TheDate '获取当前系统时间 curTime=XX_DATE '天干名称 TianGan(0)="甲" TianGan(1)="乙" TianGan(2)="丙" TianGan(3)="丁" TianGan(4)="戊" TianGan(5)="己" TianGan(6)="庚" TianGan(7)="辛" TianGan(8)="壬" TianGan(9)="癸" '地支名称 DiZhi(0)="子" DiZhi(1)="丑"
3、DiZhi(2)="寅" DiZhi(3)="卯" DiZhi(4)="辰" DiZhi(5)="巳" DiZhi(6)="午" DiZhi(7)="未" DiZhi(8)="申" DiZhi(9)="酉" DiZhi(10)="戌" DiZhi(11)="亥" '属相名称 ShuXiang(0)="鼠" ShuXiang(1)="牛" ShuXiang(2)="虎" ShuXiang(3)="兔" ShuXiang(4)="龙" ShuXiang(5)="蛇" ShuXiang(6)="马" ShuXiang(7)="羊" ShuXiang(8)="猴" ShuX
4、iang(9)="鸡" ShuXiang(10)="狗" ShuXiang(11)="猪" '农历日期名 DayName(0)="*" DayName(1)="初一" DayName(2)="初二" DayName(3)="初三" DayName(4)="初四" DayName(5)="初五" DayName(6)="初六" DayName(7)="初七" DayName(8)="初八" DayName(9)="初九" DayName(10)="初十" DayName(11)="十一" DayName(12)="十二" DayName(13)="十三" DayNam
5、e(14)="十四" DayName(15)="十五" DayName(16)="十六" DayName(17)="十七" DayName(18)="十八" DayName(19)="十九" DayName(20)="二十" DayName(21)="廿一" DayName(22)="廿二" DayName(23)="廿三" DayName(24)="廿四" DayName(25)="廿五" DayName(26)="廿六" DayName(27)="廿七" DayName(28)="廿八" DayName(29)="廿九" DayName(30)="三十" '农历
6、月份名 MonName(0)="*" MonName(1)="正" MonName(2)="二" MonName(3)="三" MonName(4)="四" MonName(5)="五" MonName(6)="六" MonName(7)="七" MonName(8)="八" MonName(9)="九" MonName(10)="十" MonName(11)="十一" MonName(12)="腊" '公历每月前面的天数 MonthAdd(0)=0 MonthAdd(1)=31 MonthAdd(2)=59 MonthAdd(3)=90 MonthAdd(4)=1
7、20 MonthAdd(5)=151 MonthAdd(6)=181 MonthAdd(7)=212 MonthAdd(8)=243 MonthAdd(9)=273 MonthAdd(10)=304 MonthAdd(11)=334 '农历数据 NongliData(0)=2635 NongliData(1)=333387 NongliData(2)=1701 NongliData(3)=1748 NongliData(4)=267701 NongliData(5)=694 NongliData(6)=2391 NongliData(7)=133423 Nong
