EXCEL中如何能将日期由公历转换为农历.doc

EXCEL中如何能将日期由公历转换为农历 2010-6-13 19:39 最佳答案 将下面面这段代码保存在模块中，就可以用公式 =nongli(A1) 调用了。 Public Function NongLi(Optional XX_DATE As Date) Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) Dim curTime, curYear, curMonth, curDay Dim GongliStr, NongliStr, NongliDayStr Dim i, 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) = 午 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(1) = 初一 DayName(2) = 初二 DayName(3) = 初三 DayName(4) = 初四 DayName(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) = 十九 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) = 六 MonName(7) = 七 MonName(8) = 八 MonName(9) = 九 MonName(10) = 十 MonName(11) = 十一 MonName(12) = 腊 公历每月前面的天数 MonthAdd(0) = 0 MonthAdd(1) = 31 MonthAdd(2) = 59 MonthAdd(3) = 90 MonthAdd(4) = 120 MonthAdd(5) = 151 MonthAdd(6) = 181 MonthAdd(7) = 212 MonthAdd(8) = 243 MonthAdd(9) = 273 MonthAdd(10) = 304 MonthAdd(11) = 334 农历数据 NongliData(0) = 2635 NongliData(1) = 333387 Nongl