1、癸甲乙丙丁戊己CHOOSE(MOD(YEAR(A1)-1900,12)+1,子丑寅卯辰巳午未申酉戌亥dbnum1$-130000年m月IF(-TEXT(A1,$-130000d) GongliStrcurYear = Year(curTime)curMonth = Month(curTime)curDay = Day(curTime)GongliStr = curYear & If (curMonth 10) ThenGongliStr = GongliStr &0 & curMonth &月ElseEnd IfIf (curDay 2) ThenTheDate = TheDate + 1计算
2、农历天干、地支、月、日isEnd = 0m = 0DoIf (NongliData(m) 4095) Thenk = 11k = 12n = kIf (n 0) ThenExit Do获取NongliData(m)的第n个二进制位的值bit = NongliData(m)For i = 1 To n Step 1bit = Int(bit / 2)Nextbit = bit Mod 2If (TheDate (Int(NongliData(m) / 65536) + 1) ThencurMonth = curMonth - 1生成农历天干、地支、属相 = NongliStrNongliStr
3、= 农历 TianGan(curYear - 4) Mod 60) Mod 10) & DiZhi(curYear - 4) Mod 60) Mod 12) &NongliStr = NongliStr &( ShuXiang(curYear - 4) Mod 60) Mod 12) &)生成农历月、日 = NongliDayStr 1) ThenNongliDayStr = 闰 MonName(-1 * curMonth)NongliDayStr = MonName(curMonth)NongliDayStr = NongliDayStr & DayName(curDay)NongLi = NongliStr &End Function