excel公历转农历的四种方法Word格式文档下载.docx
《excel公历转农历的四种方法Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《excel公历转农历的四种方法Word格式文档下载.docx（8页珍藏版）》请在冰豆网上搜索。
癸"
甲"
乙"
丙"
丁"
戊"
己"
CHOOSE（MOD（YEAR（A1）-1900,12）+1,"
子"
丑"
寅"
卯"
辰"
巳"
午"
未"
申"
酉"
戌"
亥"
[dbnum1][$-130000]年m月"
IF（--TEXT（A1,"
[$-130000]d"
）<
11,"
[dbnum1][$-130000]d"
））
excel公历转农历方法四：
使用自定义函数
上面介绍的excel公历转农历都是使用excel内置函数完成的，有一个弊端就是公式太长，如果使用自定义函数，在公式栏就可以简化输入。
如下图所示，我们在B2输入公式：
=nongli（A2），即可。
C列农历简称中C2公式是：
=RIGHT（B2,LEN（B2）-8）。
关于自定义函数的使用方法请参考：
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
NongliData
（2）=1701
NongliData（3）=1748
NongliData（4）=267701
NongliData（5）=694
NongliData（6）=2391
NongliData（7）=133423
NongliData（8）=1175
NongliData（9）=396438
NongliData（10）=3402
NongliData（11）=3749
NongliData（12）=331177
NongliData（13）=1453
NongliData（14）=694
NongliData（15）=201326
NongliData（16）=2350
NongliData（17）=465197
NongliData（18）=3221
NongliData（19）=3402
NongliData（20）=400202
NongliData（21）=2901
NongliData（22）=1386
NongliData（23）=267611
NongliData（24）=605
NongliData（25）=2349
NongliData（26）=137515
NongliData（27）=2709
NongliData（28）=464533
NongliData（29）=1738
NongliData（30）=2901
NongliData（31）=330421
NongliData（32）=1242
NongliData（33）=2651
NongliData（34）=199255
NongliData（35）=1323
NongliData（36）=529706
NongliData（37）=3733
NongliData（38）=1706
NongliData（39）=398762
NongliData（40）=2741
NongliData（41）=1206
NongliData（42）=267438
NongliData（43）=2647
NongliData（44）=1318
NongliData（45）=204070
NongliData（46）=3477
NongliData（47）=461653
NongliData（48）=1386
NongliData（49）=2413
NongliData（50）=330077
NongliData（51）=1197
NongliData（52）=2637
NongliData（53）=268877
NongliData（54）=3365
NongliData（55）=531109
NongliData（56）=2900
NongliData（57）=2922
NongliData（58）=398042
NongliData（59）=2395
NongliData（60）=1179
NongliData（61）=267415
NongliData（62）=2635
NongliData（63）=661067
NongliData（64）=1701
NongliData（65）=1748
NongliData（66）=398772
NongliData（67）=2742
NongliData（68）=2391
NongliData（69）=330031
NongliData（70）=1175
NongliData（71）=1611
NongliData（72）=200010
NongliData（73）=3749
NongliData（74）=527717
NongliData（75）=1452
NongliData（76）=2742
NongliData（77）=332397
NongliData（78）=2350
NongliData（79）=3222
NongliData（80）=268949
NongliData（81）=3402
NongliData（82）=3493
NongliData（83）=133973
NongliData（84）=1386
NongliData（85）=464219
NongliData（86）=605
NongliData（87）=2349
NongliData（88）=334123
NongliData（89）=2709
NongliData（90）=2890
NongliData（91）=267946
NongliData（92）=2773
NongliData（93）=592565
NongliData（94）=1210
NongliData（95）=2651
NongliData（96）=395863
NongliData（97）=1323
NongliData（98）=2707
NongliData（99）=265877
生成当前公历年、月、日==>
GongliStr
curYear=Year（curTime）
curMonth=Month（curTime）
curDay=Day（curTime）
GongliStr=curYear&
"
If（curMonth<
10）Then
GongliStr=GongliStr&
0"
&
curMonth&
月"
Else
EndIf
If（curDay<
curDay&
日"
计算到初始时间1921年2月8日的天数：
1921-2-8（正月初一）
TheDate=（curYear-1921）*365+Int（（curYear-1921）/4）+curDay+MonthAdd（curMonth-1）-38
If（（curYearMod4）=0AndcurMonth>
2）Then
TheDate=TheDate+1
计算农历天干、地支、月、日
isEnd=0
m=0
Do
If（NongliData（m）<
4095）Then
k=11
k=12
n=k
If（n<
0）Then
ExitDo
获取NongliData（m）的第n个二进制位的值
bit=NongliData（m）
Fori=1TonStep1
bit=Int（bit/2）
Next
bit=bitMod2
If（TheDate<
=29+bit）Then
isEnd=1
TheDate=TheDate-29-bit
n=n-1
Loop
If（isEnd=1）Then
m=m+1
curYear=1921+m
curMonth=k-n+1
curDay=TheDate
If（k=12）Then
If（curMonth=（Int（NongliData（m）/65536）+1））Then
curMonth=1-curMonth
ElseIf（curMonth>
（Int（NongliData（m）/65536）+1））Then
curMonth=curMonth-1
生成农历天干、地支、属相==>
NongliStr
NongliStr="
农历"
TianGan（（（curYear-4）Mod60）Mod10）&
DiZhi（（（curYear-4）Mod60）Mod12）&
NongliStr=NongliStr&
（"
ShuXiang（（（curYear-4）Mod60）Mod12）&
）"
生成农历月、日==>
NongliDayStr
1）Then
NongliDayStr="
闰"
MonName（-1*curMonth）
NongliDayStr=MonName（curMonth）
NongliDayStr=NongliDayStr&
DayName（curDay）
NongLi=NongliStr&
EndFunction
升级会员 