資源描述：
《excel公歷日期轉(zhuǎn)農(nóng)歷日期方法》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫。
1、EXCEL公歷日期轉(zhuǎn)農(nóng)歷日期方法方法1：使用EXCEL內(nèi)置函數(shù)Text---返回日期的阿拉伯?dāng)?shù)字的農(nóng)歷年月日在A1單元格輸入公歷日期如2001-11-30在B1單元格·按照阿拉伯?dāng)?shù)字的日期格式顯示轉(zhuǎn)換后的農(nóng)歷日期，在B1單元格輸入轉(zhuǎn)農(nóng)歷公式：=TEXT(A1,"[$-130000]yyyy-mm-dd")回車顯示農(nóng)歷日期2001-10-16·按照中文年月的日期格式顯示轉(zhuǎn)換后的農(nóng)歷日期，在B1單元格輸入轉(zhuǎn)農(nóng)歷公式：=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=
2、1,"初","")&"d")回車顯示農(nóng)歷日期2001年10月16方法2：使用EXCEL自定義函數(shù)上面介紹的Text函數(shù)是Excel內(nèi)置函數(shù)，如果要顯示農(nóng)歷的天干地支等信息，用內(nèi)置函數(shù)公式寫得就會很長，這種情況下，可以使用自定義函數(shù)，在公式欄就可以簡化輸入。我們可以自定義函數(shù)Lunardate,用以實現(xiàn)在A1單元格輸入公歷日期如2001-11-30在B2輸入公式：=Lunardate(A2)，回車顯示農(nóng)歷日期農(nóng)歷辛巳年(蛇)十月十六在Excel中設(shè)定自定義函數(shù)Lunardate的步驟：1.按“Alt+F11”快捷鍵，出現(xiàn)如下圖的空白窗，在
3、框體1處，粘貼Lunardate的程序（見下面的詳細程序），粘貼完畢，點擊右上角的2處十字叉關(guān)閉關(guān)閉框，再點擊左上角的3處的Excel圖標回到Excel的工作表。2.要粘貼的程序如下：7PublicFunctionLunardate(OptionalXX_DATEAsDate)DimMonthAdd(11),LunardateData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)DimcurTime,curYear,curMonth,curDayDimGong
4、liStr,LunardateStr,LunardateDayStrDimi,m,n,k,isEnd,bit,TheDate'獲取當(dāng)前系統(tǒng)時間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)="寅
5、"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)="雞"ShuXi
6、ang(10)="狗"ShuXiang(11)="豬"'農(nóng)歷日期名DayName(0)="*"DayName(1)="初一"DayName(2)="初二"DayName(3)="初三"DayName(4)="初四"7DayName(5)="初五"DayName(6)="初六"DayName(7)="初七"DayName(8)="初八"DayName(9)="初九"DayName(10)="初十"DayName(11)="十一"DayName(12)="十二"DayName(13)="十三"DayName(14)="十四"DayName(
7、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)="三十"'農(nóng)歷月份名MonName(0)="*"Mon
8、Name(1)="正"MonName(2)="二"MonName(3)="三"MonName(4)="四"MonName(5)="五"MonName(6)="六"MonName(7)="七"MonName(
