.xcel中实现阳历转化阴历.docVIP

下载本文档

1
0
约6.7千字
约 11页
2017-08-27 发布于湖北
举报
版权申诉

.xcel中实现阳历转化阴历.doc

1、本文档共11页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

cel中实现阳历转化阴历

步骤一，在Excel工作表界面下按ALT+F11组合键打开VBA窗口，进入VBA编辑环境，在其窗口的菜单栏上依次单击“插入”“模块”，可在当前VBA工程中插入模块，并直接进入此模块的代码编辑区域。可在此编辑区域中输入自定义函数的程序代码 Public Function NongLi(Optional XX_DATE As Date)?Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)?Dim curTime, curYear, curMonth, curDay?Dim GongliStr, NongliStr, NongliDayStr?Dim i, 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) = 丑?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) = 猴?ShuXiang(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) = 十三?DayName(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) = 三十?农历月份名?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) = 120?MonthAdd(5) = 151?MonthAdd(6) = 181?MonthAdd(7) = 212?MonthAdd(8) = 243?MonthAdd(9) = 273?MonthAdd(10) = 304?MonthAdd(11) = 334?农历数据?NongliData(0) = 2