资源描述：
《excel公历日期转农历日期方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、EXCEL公历日期转农历日期方法方法1：使用EXCEL内置函数Text---返回日期的阿拉伯数字的农历年月日在A1单元格输入公历日期如2001-11-30在B1单元格·按照阿拉伯数字的日期格式显示转换后的农历日期，在B1单元格输入转农历公式：=TEXT(A1,"[$-130000]yyyy-mm-dd")回车显示农历日期2001-10-16·按照中文年月的日期格式显示转换后的农历日期，在B1单元格输入转农历公式：=TEXT(A1,"[$-130000]yyyy年m月"&IF(LEN(--TEXT(A1,"[$-130000]dd"))=1,"初","")&"
2、d")回车显示农历日期2001年10月16方法2：使用EXCEL自定义函数上面介绍的Text函数是Excel内置函数，如果要显示农历的天干地支等信息，用内置函数公式写得就会很长，这种情况下，可以使用自定义函数，在公式栏就可以简化输入。我们可以自定义函数Lunardate,用以实现在A1单元格输入公历日期如2001-11-30在B2输入公式：=Lunardate(A2)，回车显示农历日期农历辛巳年(蛇)十月十六在Excel中设定自定义函数Lunardate的步骤：1.按“Alt+F11”快捷键，出现如下图的空白窗，在框体1处，粘贴Lunardate的程序（见下
3、面的详细程序），粘贴完毕，点击右上角的2处十字叉关闭关闭框，再点击左上角的3处的Excel图标回到Excel的工作表。2.要粘贴的程序如下：7PublicFunctionLunardate(OptionalXX_DATEAsDate)DimMonthAdd(11),LunardateData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)DimcurTime,curYear,curMonth,curDayDimGongliStr,LunardateStr,LunardateDaySt
4、rDimi,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
5、)="午"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(
6、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(15)="十五"DayName(16)="十六"DayName(17)="十七"DayName(18)="十八"DayName(19
7、)="十九"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)
8、="六"MonName(7)="七"MonName(
