如何在excel中實(shí)現(xiàn)陽歷轉(zhuǎn)化陰歷

1、步驟一，在步驟一，在Excel工作表界面下按工作表界面下按組合鍵打開組合鍵打開VBA窗口，進(jìn)入窗口，進(jìn)入VBA編輯環(huán)境，在其窗口的菜單欄上依次單擊編輯環(huán)境，在其窗口的菜單欄上依次單擊“插入插入”→“模塊模塊”，可在當(dāng)前，可在當(dāng)前VBA工程中插入模塊，并直接進(jìn)入此模塊的代工程中插入模塊，并直接進(jìn)入此模塊的代碼編輯區(qū)域。可在此編輯區(qū)域中輸入自定義函數(shù)的程序代碼碼編輯區(qū)域?？稍诖司庉媴^(qū)域中輸入自定義函數(shù)的程序代碼如圖如圖：PublicFunc

2、tionNongLi(OptionalXX_DATEAsDate)DimMonthAdd(11)NongliData(99)TianGan(9)DiZhi(11)ShuXiang(11)DayName(30)MonName(12)DimcurTimecurYearcurMonthcurDayDimGongliStrNongliStrNongliDayStrDimimnkisEndbitTheDate獲取當(dāng)前系統(tǒng)時(shí)間curTime=XX_

3、DATE天干名稱TianGan(0)=“甲“TianGan(1)=“乙“TianGan(2)=“丙“TianGan(3)=“丁“TianGan(4)=“戊“TianGan(5)=“己“TianGan(6)=“庚“TianGan(7)=“辛“TianGan(8)=“壬“TianGan(9)=“癸“DayName(17)=“十七“DayName(18)=“十八“DayName(19)=“十九“DayName(20)=“二十“DayName(

4、21)=“廿一“DayName(22)=“廿二“DayName(23)=“廿三“DayName(24)=“廿四“DayName(25)=“廿五“DayName(26)=“廿六“DayName(27)=“廿七“DayName(28)=“廿八“DayName(29)=“廿九“DayName(30)=“三十“農(nóng)歷月份名MonName(0)=““MonName(1)=“正“MonName(2)=“二“MonName(3)=“三“MonName(

5、4)=“四“MonName(5)=“五“MonName(6)=“六“MonName(7)=“七“MonName(8)=“八“MonName(9)=“九“MonName(10)=“十“MonName(11)=“十一“MonName(12)=“臘“公歷每月前面的天數(shù)MonthAdd(0)=0MonthAdd(1)=31MonthAdd(2)=59MonthAdd(3)=90MonthAdd(4)=120MonthAdd(5)=151Mont