原创力文档- 1、本文档共8页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
步骤一，在 Excel 工作表界面下按 <ALT+F11> 组合键打开 VBA 窗
口，进入 VBA 编辑环境，在其窗口的菜单栏上依次单击 “插入 ”→ “模
块 ”，可在当前 VBA 工程中插入模块， 并直接进入此模块的代码编辑
区域。可在此编辑区域中输入自定义函数的程序代码 ,如图 ：
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) = " 亥"
'属相名称
1 / 8
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) =
文档评论（0）