公历转农历EXCEL宏讲解

1、TianGan(9), DiZhi(11),ShuXiang(11),Public Function NongLi(Optional XX_DATE As Date)Dim MonthAdd(11), NongliData(99), DayName(30), MonName(12)Dim curTime, curYear, curMonth, curDayDim GongliStr, NongliStr, NongliDayStr Dim i, m, n, k, isEnd, bit, TheDate ? e ?卩 ? ?叮 3e ?curTime = XX_DATEi i ?e ?3?Tia

2、nGan(O) = ”？x Tia nGan (1) = ooTianGan(2) = ?TianGan(3) = ?TianGan(4) = ? iTianGan(5) = ?oTianGan(6) = ?y TianGan(7) = D a TianGan(8) = eeTianGan(9) = 1?ii ? ?3?DiZhi(0) = Xo DiZhi(1) = 3o DiZhi(2) = ou DiZhi(3) = ?DiZhi(4) = 3?DiZhi(5) = ?eDiZhi(6) = ?DiZhi(7) = ? DiZhi(8) = ee DiZhi(9) = o ?DiZhi(

3、10) = D?DiZhi(11) = o e ? d ?3?ShuXiang(0) = eo ShuXiang(1) =? ShuXiang(2) =?0 ShuXiang(3) =-ni ?ShuXiang(4) =-nau ShuXiang(5) =-ne ?ShuXiang(6) =?1 ShuXiang(7) =? 0 ShuXiang(8) =o?ShuXiang(9) =?|ShuXiang(10)=1 ShuXiang(11)=?i? due ?u ?DayName(0) =DayName(1) =3?0 ?DayName(2) =3?tDayName(3) =3?e yDay

4、Name(4) =3?DayName(5) =3?DayName(6) =3?久、”auDayName(7) =3?DayName(8) =3?DayName(9) =3?DayName(10)=3? e ?DayName(11)一 ne ?0 ?DayName(12)一 ne ?tDayName(13)一 ne ?e yDayName(14)一 ne ?DayName(15)一 ne ?DayName(16)一 ne ?au DayName(17)一 ne ?DayName(18)一 ne ? ?DayName(19)一 ne ?DayName(20)= ?te ?DayName(21)=

5、?d ?DayName(22)= ? ?tDayName(23)= ?e yDayName(24)= ? ?DayName(25)= ? ?DayName(26)= ?au DayName(27)= ? ?DayName(28)= ? ?DayName(29)= ? ?DayName(30)一 ne ye ? du ? Y?MonName(0) =-MonName(1) =?yMonName(2) =?tMonName(3) = e yMonName(4) =?MonName(5) =?MonName(6) = du MonName(7) = ?MonName(8) = ?MonName(9)

6、 = ?Mo nN ame(10) = e ?Mo nN ame(11) = e ?o ?Mo nN ame(12) = d 1? du ? ?卩?iie yMonthAdd(0) = 0MonthAdd(1) = 31MonthAdd(2) = 59MonthAdd(3) = 90MonthAdd(4) = 120MonthAdd(5) = 151MonthAdd(6) = 181MonthAdd(7) = 212MonthAdd(8) = 243MonthAdd(9) = 273MonthAdd(10) = 304MonthAdd(11) = 334? due y?YNongliData(

7、0) = 2635NongliData(1) = 333387NongliData(2) = 1701NongliData(3) = 1748NongliData(4) = 267701NongliData(5) = 694NongliData(6) = 2391NongliData(7) = 133423NongliData(8) = 1175NongliData(9) = 396438NongliData(10) = 3402NongliData(11) = 3749NongliData(12) = 331177NongliData(13) = 1453NongliData(14) = 6

8、94NongliData(15) = 201326NongliData(16) = 2350NongliData(17) = 465197NongliData(18) = 3221NongliData(19) = 3402NongliData(20) = 400202NongliData(21) = 2901NongliData(22) = 1386NongliData(23) = 267611NongliData(24) = 605NongliData(25) = 2349NongliData(26) = 137515NongliData(27) = 2709NongliData(28) =

9、 464533NongliData(29) = 1738NongliData(30) = 2901NongliData(31) = 330421NongliData(32) = 1242NongliData(33) = 2651NongliData(34) = 199255NongliData(35) = 1323NongliData(36) = 529706NongliData(37) = 3733NongliData(38) = 1706NongliData(39) = 398762NongliData(40) = 2741NongliData(41) = 1206NongliData(4

10、2) = 267438NongliData(43) = 2647NongliData(44) = 1318NongliData(45) = 204070NongliData(46) = 3477NongliData(47) = 461653NongliData(48) = 1386NongliData(49) = 2413NongliData(50) = 330077NongliData(51) = 1197NongliData(52) = 2637NongliData(53) = 268877NongliData(54) = 3365NongliData(55) = 531109Nongli

11、Data(56) = 2900NongliData(57) = 2922NongliData(58) = 398042NongliData(59) = 2395NongliData(60) = 1179NongliData(61) = 267415NongliData(62) = 2635NongliData(63) = 661067NongliData(64) = 1701NongliData(65) = 1748NongliData(66) = 398772NongliData(67) = 2742NongliData(68) = 2391NongliData(69) = 330031No

12、ngliData(70) = 1175NongliData(71) = 1611NongliData(72) = 200010NongliData(73) = 3749NongliData(74) = 527717NongliData(75) = 1452NongliData(76) = 2742NongliData(77) = 332397NongliData(78) = 2350NongliData(79) = 3222NongliData(80) = 268949NongliData(81) = 3402NongliData(82) = 3493NongliData(83) = 1339

13、73NongliData(84) = 1386NongliData(85) = 464219NongliData(86) = 605NongliData(87) = 2349NongliData(88) = 334123NongliData(89) = 2709NongliData(90) = 2890NongliData(91) = 267946NongliData(92) = 2773NongliData(93) = 592565NongliData(94) = 1210NongliData(95) = 2651NongliData(96) = 395863NongliData(97) =

14、 1323NongliData(98) = 2707NongliData(99) = 265877eu 3e ? 1?du ?e ?C ?Ce ? = Gon gliStr curYear = Year(curTime)curMonth = Month(curTime)curDay = Day(curTime)GongliStr = curYear & ? e If (curMonth 10) ThenGongliStr = GongliStr & 0 & curMonth & ?ElseGongliStr = GongliStr & curMonth & ?End IfIf (curDay

15、2) ThenTheDate = TheDate + 1End If? dull ?e ?g ? ?C ?Ce ?isEnd = 0m = 0DoIf (NongliData(m) 4095) Thenk = 11Elsek = 12End Ifn = kDoIf (n 0) ThenExit DoEnd If? e ?NongliData(m)卩?u n?t?卩？卩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 - 1End IfEnd Ifeu 3e ? dull ?e ? ? ?Ce ? d = NongliStrMod 10)&60) Mod 12)Non gliStr= ”？ du & Tia nGan (curYear- 4) Mod 60)DiZhi(curYear - 4) Mod 60) Mod 12) & ?e NongliStr = NongliStr & (& ShuXiang(curYear -4) Mod& )eu 3 e ? du ?