如何在excel中实现阳历转化阴历.doc

如何在excel中实现阳历转化阴历 作者： 日期：10 个人收集整理 勿做商业用途步骤一，在Excel工作表界面下按 GogiStrcuYear Year(cuTim)curMoth= Month(curTime)crDay = Dycrim)onglitr ca & 年f (curMonh 10 ThenGongiSr= ogiSt & & curMonh & 月ElsGongiStr =GongStr&crth & 月End Iff (crDay 10ThenGongliSt = GogliSr & Da & 日ElseGlStr =GngliS & curDay & 日Ed I计算到初始时间1921年2月日的天数：212-8(正月初一)TeDae (curYar 92) 365 +InturYear 121) / 4 + cuDay MohAddcrMoth- 1) - 8If (cuYea Md4)= 0 And urnh 2) TenTheDate heDa + 1nd I计算农历天干、地支、月、日isEn 0m = 0oIf (NongiData) 4095 Thek = 1lk = 12En f = kDoI (Int(NoglData(m) / 536) 1) Thecronth = cuonh - 1EnEndIf生成农历天干、地支、属相 NongliSrnlitr = 农历 ianGa(uYar 4)od 6 od10) & DZi(cuYear - )Md6) M 2) & 年NogiStr=Nonglitr & ( &Shuang(urear - 4) Mod 60) Mod) & )生成农历月、日=NongiDaStrIf (urMonth 1)TNoDaStr= 闰& MonName1 *rMontElseNonliyStr MnNme(crMonh)End IfNongliDySt = NongliSr &月NongiDaySt= NongiDyStr & DayNamcurDy)Nog NogliStr & NonglDaySd unction步骤，单击窗口右上角的“关闭按钮关闭BA编辑窗口，返回到工作表窗口中。此时即可在当前工作簿中使用刚刚创立的自定义函数,并且可以在函数列表的“用户定义类别中找到此自定义函数。如图步骤3，要使自定义函数能够应用在其他工作簿中,需要将这个包含自定义函数的工作簿另存为“加载宏。依次单击“Oe按钮“另存为“其他格式，翻开“另存为对话框,在“保存类型下拉列表中选择“Exce 加载宏,然后为此加载宏命名后单击“保存按钮进展保存。 步骤4,保存后需要在加载项中添加加载宏。单击“ffie按钮“Exe选项，翻开“Excel选项对话框,在左侧类别中选择“加载项,然后在右侧下方的“管理下拉列表中选择“Excel 加载项，再单击“转到按钮，翻开“加载宏对话框,在其中勾选之前所保存的包含自定义函数的加载宏前面的复选框，最后单击“确定即可完成加载项的添加。步骤五，做好阳历列后,在另外一列选择插入自定义函数,确定,然后大功告成。