如何在excel中实现阳历转化阴历.doc

如何在excel中实现阳历转化阴历

———————————————————————————————— 作者：
———————————————————————————————— 日期：

10

个人收集整理 勿做商业用途
步骤一，在Excel工作表界面下按<ＡLT＋F11＞组合键翻开VBA窗口,进入VBA编辑环境，在其窗口的菜单栏上依次单击“插入〞→“模块〞,可在当前VBA工程中插入模块,并直接进入此模块的代码编辑区域。可在此编辑区域中输入自定义函数的程序代码,如图：

Pｕblｉc　Fｕnctiｏn NongＬｉ(Oｐtionａl XX_DAＴＥ As Datｅ) 
Ｄim MｏnｔhAdd(11)， ＮonglｉData〔99)， ＴianGan〔9〕，　DiZhi〔11), SｈuXiang(1１)， DａyNａme(30), MonNamｅ(12) 
Ｄim curTｉme， cｕrＹｅar, cｕrＭonｔh, ｃurDay 
Diｍ GｏngliSｔr, ＮongliStr, NongliDayStr 
Ｄｉm i, m, ｎ， ｋ, isＥｎｄ, bit, ThｅDate 
ﻫ＇获取当前系统时间 
curＴimｅ　= ＸX_DATE 

'天干名称 
TianGaｎ(0〕 ＝ "甲" ﻫTiaｎGａn(1) =　"乙" 
TiaｎGan(2) =　"丙＂ 
TiaｎGａｎ〔3) = ＂丁" 
TiａnGaｎ〔4〕　= "戊" 
TiａnＧａn〔5) = "己" 
TianＧan〔6) =　"庚" ﻫＴianGａn(７) ＝ "辛" ﻫTｉanＧaｎ(８)　= ＂壬" ﻫTianGan(9〕 = "癸" 
'地支名称 
ＤiＺhｉ〔0〕 = "子＂ 
DiＺhi(1) = "丑" 
DiZhi(２〕　= "寅" 
DiZhｉ(3) =　"卯" ﻫDiZhi(４) = "辰＂ 
DｉZｈi〔5〕 = ＂巳" 
DiZhi〔6)　=　"午" ﻫDiＺhｉ(7〕 ＝ "未＂ ﻫＤiZhi(8) = ＂申" 
DiZhｉ(9〕 = "酉" ﻫDｉZhi(１0) =　"戌" ﻫＤiＺhi〔11) = ＂亥" ﻫ＇属相名称 
ＳｈuXiang〔0) = ＂鼠" ﻫSｈuXiang(1〕　= "牛" ﻫＳhuＸiａng(２) = "虎＂ ﻫＳｈuXiaｎg(3〕 = "兔" 
ShuXiａng(4) = "龙" ﻫＳhuXiang〔５)　= "蛇＂ ﻫShuXiang(6)　＝ "马＂ ﻫShuXiang(7)　＝ ＂羊" 
ＳhuXiａng(８) = "猴" 
ＳhuＸiaｎg(９〕 ＝ ＂鸡＂ ﻫShuＸiaｎg(10) =　"狗" ﻫShuＸiaｎg(11) =　＂猪" 
'农历日期名 
DayＮaｍe(0) = "*" 
ＤayNamｅ(1) ＝ "初一＂ ﻫDaｙName(２) = "初二" 
DayＮaｍｅ〔3) = "初三＂ ﻫDａyＮamｅ(４) = "初四＂ ﻫDaｙＮame(5) ＝ "初五＂ ﻫDaｙNamｅ〔6〕 ＝ ＂初六" ﻫDａyName(7) = "初七" 
ＤａｙＮame(８) = ＂初八" ﻫDａyName〔9) = "初九" ﻫＤａyNａmｅ(１0)　＝ "初十" ﻫDayName(1１) = ＂十一＂ ﻫDayName(12) =　"十二" 
ＤａyＮame(13) ＝ "十三" ﻫDaｙNａme〔14〕 =　"十四" ﻫDayＮaｍe(１5〕 ＝ "十五" ﻫDayＮａme〔１6) =　"十六" ﻫDayName(1７) = "十七" 
DayNamｅ(1８) = "十八" ﻫDａyNaｍe(1９) =　＂十九" ﻫDａyNａme(20) = "二十" ﻫDａyNamｅ(2１〕 =　"廿一" ﻫDａｙNａme〔22)　＝ "廿二" ﻫDayＮaｍe(2３〕 =　"廿三" ﻫDayＮａme〔24) = ＂廿四＂ ﻫDａｙName(２５) =　＂廿五" ﻫDａｙName(2６) ＝ ＂廿六" ﻫDaｙNａme〔27) = "廿七" 
ＤayＮaｍｅ(２8)　=　＂廿八" 
ＤａyName〔29〕 ＝　"廿九＂ 
DayName〔3０) ＝ "三十" 
＇农历月份名 ﻫMonName〔０)　＝　"*＂ ﻫMｏnＮａme(１〕　=　＂正" ﻫMｏｎNａme(2) = "二" ﻫMoｎＮａme(3) = "三" ﻫMｏnNaｍｅ(４) = "四" ﻫMｏnNａme(５) = "五" 
MonNaｍe(6) = "六＂ ﻫMoｎName(７) = "七" ﻫMｏnＮａｍe〔８)　= "八" ﻫMonＮame(9)　＝ "九" 
ＭoｎNaｍe(10) =　＂十" 
MonNamｅ〔１1) =　"十一" 
ＭonName(１2) = "腊＂ ﻫ'公历每月前面的天数 
MontｈAｄd〔0〕 = 0 ﻫMonthＡdｄ〔1)　= ３1 
MｏntｈAｄd(2) =　5９ ﻫMontｈAdd(３〕　=　90 ﻫMontｈＡdｄ〔4) = 1２0 ﻫMonｔhAdd(5) = 151 ﻫＭonthAdｄ(6) = 181 ﻫMonthＡdｄ(7)　= 212 
ＭｏnthAｄd(8) = ２43 ﻫＭｏnｔhAdd(9) = 273 
MoｎthＡdd〔10) = ３０4 
MonｔｈAdd(1１)　＝ 33４ ﻫ'农历数据 
NoｎglｉＤaｔa(０) =　2６３５ 
NongｌｉData(１) = 3３3387 
NongｌiDaｔａ(２〕 =　1７01 ﻫNoｎglｉData(３)　= 174８ 
NonｇｌiＤatａ(4) = 267７01 
NoｎｇｌｉDatａ(5) ＝ 69４ 
ＮｏnglｉDaｔa(6) ＝ ２３９1 ﻫNongｌiData(7) ＝ １33423 ﻫNｏnｇｌiDaｔa(8〕 ＝ 1175 
NoｎgｌiDaｔa(9)　= 396438 ﻫNongｌiＤata(10)　= 3402 
NonglｉDaｔａ(1１) = 3749 ﻫNongliDaｔa(12)　＝ 3３1177 
ＮongliＤata〔１３)　＝ 1453 ﻫNoｎgｌｉData(14)　= 694 
NｏｎgliDａｔａ(１5) = 20212６ ﻫNoｎgliData(１６) = ２3５0 ﻫNｏｎgliDatａ〔17〕 = 46519７ ﻫNｏngliDａta〔1８) ＝　３221 ﻫＮongｌiＤatａ(19) ＝ 34０2 ﻫNoｎgliＤata〔2０) = 400２02 
NｏｎgliDａｔa(2１〕 ＝ ２９01 
NｏngｌiDatａ(22〕 = 1386 
NoｎｇliＤatａ(23) = 2６7６1１ ﻫNongliData(24)　= ６05 ﻫNongliData(２5) = 2３49 
ＮoｎgliDａｔa(２６〕 ＝ １3７515 
NongliＤata(2７) ＝ ２709 ﻫＮoｎglｉDatａ(2８〕 = 464５33 
NongliData(２9) = 1７38 
ＮongliData(3０) ＝ 2901 ﻫＮｏｎgliData(31〕 ＝　33042１ ﻫＮongliDatａ(32) = 1242 ﻫNｏnglｉＤａta(3３)　= 26５1 
NonglｉData(34) = １99255 ﻫNongｌiDaｔa〔35) =　132３ 
NonｇliＤata(3６) =　52９７06 
NongliData(3７) = 3733 ﻫNoｎglｉDatａ(38) = 1706 ﻫNoｎgliData〔39) ＝ 3987６2 
NｏｎｇliDａta(40) = 2741 ﻫNｏngｌｉData〔41) ＝ 1206 ﻫNoｎｇlｉDａｔa(４2) = 267４38 ﻫNongliData(43)　= 2647 ﻫNoｎglｉＤatａ(44〕　= 1３18 
NongliDａta(4５) =　204070 ﻫNongliＤatａ(46) = ３47７ ﻫＮonｇliDaｔa(47〕 = 4６１６５3 
NongliDａta(48)　= 1３86 
NoｎｇｌｉＤata(49) ＝　2４1３ 
ＮｏnｇlｉＤaｔa(５0) =　３30077 ﻫNongliDaｔa(５１) =　１197 ﻫNonｇliＤata(５２) = ２６3７ ﻫNongliDaｔa(53) =　２68877 
ＮongｌiＤaｔａ(５4〕 = ３365 ﻫＮoｎglｉDａta(５5) = 5３110９ ﻫＮｏｎgliDaｔａ(56) = 2９00 
NonglｉDatａ(5７〕 ＝ 2922 
NoｎgliＤata(5８) = 3９８0４２ ﻫNonｇlｉDaｔａ(59) = 2３95 ﻫＮonｇliDaｔa(60) = 1179 ﻫNonglｉDａta〔6１) = ２６741５ 
NongliData(6２) = 263５ 
NｏngｌiDａta(63) = 66１06７ ﻫNongliＤaｔａ(6４〕　= １701 ﻫＮonｇlｉDａta(65) ＝ 1748 
NｏｎgｌｉＤａｔa〔66) ＝ 3９8772 ﻫNonglｉDatａ(６7) =　27４2 ﻫNonｇliＤata(68) = ２39１ ﻫＮoｎglｉDａta〔6９) ＝ 33０031 ﻫNongliData(70)　= 1１7５ ﻫNongliDaｔa(71〕 = 1６１1 ﻫNｏngｌiDａｔa(72〕　= ２000１0 ﻫNoｎgliData〔7３) ＝ ３749 ﻫNongｌiDａｔa(７４) = 527717 ﻫNoｎgliDatａ(７５) =　1４52 ﻫNｏngliData(７6) ＝ 2742 
NｏｎgliＤata〔7７〕 = 33239７ 
ＮoｎglｉDatａ(7８〕 = ２35０ 
NｏｎgliDａta〔7９)　= ３222 
NonｇｌiＤata〔8０) = 26８9４9 ﻫNongｌｉＤata(8１〕　= 3402 
ＮｏngliDaｔa(82) ＝ 3493 ﻫNｏnｇliＤatａ(83) ＝ 1339７3 
NongliData〔84〕 = 1３86 ﻫNonｇｌiDaｔa(８5) =　４64219 
ＮｏｎglｉDaｔa(8６) =　６０5 
ＮongｌｉDａtａ(87〕 ＝ 234９ 
NｏnｇlｉData(８８) = ３3４１23 
NoｎｇliDａta(８9) = 270９ 
ＮonｇliData(90) = 2890 
NｏngliＤａta(9１) = 267946 ﻫNongliData(92)　= ２773 
NoｎgｌiDａｔa(9３〕 = 59２56５ 
NonglｉＤａｔa(９4〕　= 1２１0 ﻫＮonｇlｉＤata〔９5) =　2６5１ ﻫNoｎglｉDatａ(96) = 39５８63 
NongliData〔97) = 132３ 
NｏngliDaｔａ〔９8)　= 2707 
NｏnｇliDａta〔99) =　265８77 ﻫ'生成当前公历年、月、日　==> GoｎgｌiStr 
cuｒYear ＝ Year(cuｒTimｅ) ﻫcurMoｎth　= Month(curTime) ﻫcｕrDay = Dａy〔cｕrＴimｅ) 
ＧongliＳtr ＝ cｕｒＹｅaｒ & "年" ﻫＩf (curMonｔh <　10〕 Then 
GongｌiSｔr　= ＧoｎgｌiStｒ & "０" & curMonｔh & "月" 
Elsｅ ﻫGongｌiStr =　GongｌｉStr　&　cｕrＭｏｎth & "月" 
End If ﻫＩf (cｕrDay < 10〕　Then ﻫGongliStｒ = GoｎgliSｔr &　"０"　& ｃｕｒDaｙ & "日" 
Else 
GｏｎｇlｉStr =　GｏngliSｔｒ & curDay & "日" 
Eｎd Iｆ ﻫ＇计算到初始时间1921年2月８日的天数：１９21－2-8(正月初一) 
TｈeDaｔe　＝ (curYｅar －　１92１)　＊ 365 +　Int〔〔ｃurYear － 1９21) / 4〕 + cuｒDay ＋ MoｎｔhAdd〔cｕrMoｎth　- 1) - ３8 
If 〔(cuｒYeaｒ Mｏd　4)　= 0 And ｃurＭｏnｔh ＞ 2) Tｈen 
TheDate ＝ ＴheDaｔｅ + 1 
Ｅnd Iｆ 
＇计算农历天干、地支、月、日 
isEnｄ ＝ 0 ﻫm = 0 ﻫＤo ﻫIf (NongｌiData〔ｍ) ＜　4095〕 Theｎ 
k = 1１ ﻫＥlｓｅ 
k = 12 
Enｄ Ｉf ﻫｎ = k 
Do 
Iｆ 〔ｎ <　0〕 Tｈen 
Eｘit　Ｄo ﻫEnd　Iｆ ﻫ'获取ＮｏnglｉDaｔａ(m)的第n个二进制位的值 ﻫbit ＝ ＮoｎgliDatａ(ｍ) 
Foｒ　ｉ　= 1 Tｏ　n Stｅp 1 
bit = Int(ｂit / 2) ﻫNｅｘt ﻫbit ＝　bit Mｏd ２ ﻫIｆ (ＴhｅDate ＜= 29 ＋ bｉt〕　Ｔhen ﻫisEｎd =　１ 
Exit　Dｏ ﻫＥｎd　Iｆ 
TheDaｔe ＝ TｈeDａte - 29 － bit 
ｎ　=　n - 1 
Lｏop 
If　(isEnd　= 1)　Tｈen 
Exｉt Do ﻫEnｄ If 
m =　ｍ + 1 ﻫＬoop ﻫcｕｒYear　=　1９21 + m 
cｕrMonth　=　ｋ -　n + １ 
cuｒDaｙ = TｈeDate ﻫＩｆ (k ＝　1２〕 Then 
If 〔curMｏntｈ = (Iｎｔ(NongｌiＤata(ｍ) ／ ６5５36)　＋　1〕) Thｅn 
curMonth = 1 - ｃuｒMonth 
ＥlｓeIf (curMonth > (Int(NoｎglｉData(m) / ６５536) ＋ 1)〕 Theｎ 
cｕrＭonth = cuｒＭonｔh - 1 ﻫEnｄ　Ｉｆ 
End　If ﻫ＇生成农历天干、地支、属相 ＝＝> NongliSｔr 
ＮｏnｇliＳtr = "农历" ＆　ＴianGaｎ(((ｃuｒYｅar　－ 4)　Ｍod 6０〕 Ｍod　10) & DｉZｈi(((cuｒYear - ４)　Mｏd　6０) Mｏｄ １2) & "年＂ 
NoｎgｌiStr　=　NongliＳtr & "(" &　ShuＸｉang〔((ｃurＹear - 4) Mod 60) Mod　１２) & ")＂ 
'生成农历月、日　==>　NongｌiDaｙStr 
If (ｃurMonth < 1)　Tｈｅｎ ﻫNoｎｇｌｉDaｙStr　= ＂闰＂　& MonName〔－1 *　ｃｕrMontｈ〕 
Else 
NonｇliＤａyStr　＝ MｏnNａme(cｕrMonｔh) 
End If 
NongliDａyStｒ = NongliＤａｙSｔr &　＂月＂ ﻫNongｌiDayStｒ　= NongｌiDａyStr & DayNamｅ〔curDａy) 
ﻫNoｎgＬｉ ＝　NoｎgliStr & NonglｉDaySｔｒ 

Ｅｎd Ｆunction

步骤２，单击窗口右上角的“关闭〞按钮关闭ＶBA编辑窗口，返回到工作表窗口中。此时即可在当前工作簿中使用刚刚创立的自定义函数,并且可以在函数列表的“用户定义〞类别中找到此自定义函数。如图

步骤3，要使自定义函数能够应用在其他工作簿中,需要将这个包含自定义函数的工作簿另存为“加载宏〞。依次单击“Oｆｆｉｃe按钮〞→“另存为〞→“其他格式〞，翻开“另存为〞对话框,在“保存类型〞下拉列表中选择“Exceｌ 加载宏〞,然后为此加载宏命名后单击“保存〞按钮进展保存。
ﻫﻫ
步骤4,保存后需要在加载项中添加加载宏。单击“Ｏffiｃe按钮〞→“Exｃeｌ选项〞，翻开“Excel选项〞对话框,在左侧类别中选择“加载项〞,然后在右侧下方的“管理〞下拉列表中选择“Excel 加载项〞，再单击“转到〞按钮，翻开“加载宏〞对话框,在其中勾选之前所保存的包含自定义函数的加载宏前面的复选框，最后单击“确定〞即可完成加载项的添加。

步骤五，做好阳历列后,在另外一列选择插入自定义函数,确定,然后大功告成。