使用步骤: 打开Excel,按下Alt + F11进入VBA编辑器。在VBA编辑器中,插入一个新模块(Insert > Module)。将上述代码复制并粘贴到新模块中。运行ConvertLunarToSolar子程序,按提示输入农历日期,即可获得对应的公历日期。这样,你就可以在Excel中通过VBA实现农历到公历的转换了。
'vba 模块内容如下 自定义公式'公历转农历模块 '原创:互联网 '修正: '// 农历数据定义 // '先以 H2B 函数还原成长度为 18 的字符串,其定义如下: '前12个字节代表1-12月:1为大月,0为小月;压缩成十六进制(1-3位) '第13位为闰月的情况,1为大月30天,0为小月29天;(4位) '第14位为闰月的月份,如果...
再将公历生日与当前的日期进行比较。农历转公历自定义函数为:公历（）一般MSOFFICE可以直接使用，但WPS需要安装VBAFORWPS插件才能使用自定义函数。VBA代码可在“开发工具”，VBA编辑器中查看，不同版本可以百度一下。本表是自已编的，供学习交流用，万年历对照表是网上下载。
CnDayStr,CnDateOfDateStr都是对应的公历转农历的.利用公共单元可以从公历获得农历.然后将当前输入的农历带入NDateToGDate函数中,作为公历求农历,一直将农历网
2023年农历出现了“闰二月”现象,闰月是为了协调回归年与农历年之间的时间差所采用的方法。而在公历中,为了弥补历法天数与地球实际公转周期的时间差,则采取每四年增加一天,即闰年的办法进行调整。公历中“四年一闰”的规则最早出现在( ) A. 古埃及时期 B. 古巴比伦时期 C. 罗马共和国时期 D...
VBA类代码: ' '根据农历年月日取对应公历日期 类模块 ' (By 漠石 mostone@hotmail.com) ' ' 本类只有一个公用方法: ' Public Function GetDateFromLunar(y As Long, m As Long, d As Long, Optional isLeap As Boolean = False) As Date
Sheet3 万年历 生日提醒表 公历 姓名 农历生日 今年公历生日日期 生日状态 AAAA 1120 BBBB 1124 注:本表采用VBA自定义函数编程将农历生日转为公历生日 CCCC 1130 ,再将公历生日与当前的日期进行比较。 0426 农历转公历自定义函数为:公历() 0504 一般MS OFFICE可以直接使用,但WPS需要安装VBA FOR WPS插件才能使用自...
农历转公历自定义函数为:公历() 一般MSOFFICE可以直接使用,但WPS需要安装VBAFORWPS插件才能使用自定义函数。 VBA代码可在“开发工具”,VBA编辑器中查看,不同版本可以百度一下。 190012345678910111213141516171819202122232425262728293031 1正月 202030405060708091011121314151617181920212223242526272829 ...
1、姓名,农历生日,今年公历生日日期,生日状态,AAAA,1120,2013-01-01和2013-12-22两次生日,出错,BBBB,1124,2013-01-05和2013-12-26两次生日,出错,注:本表采用VBA自定义函数编程将农历生日转为公历生日CCCC,1130,2013-01-11,生日已过,,再将公历生日与当前的日期进行比较。AAAA,0426,2013-06-04,生日已过,农...