excel农历转换公式.docxVIP

1如何在本计算机中的其他文件中使用? I ir so-* ▼ I u画与邮阡墮〕 ? + 611... Mt*P3 id... *隶m.if壬?… 1 ■自胡思止起项⑹… 支兰+±迎… 1 自■足冥(*￡ ) J 1? 刁 Va iruflL 吗硒闵 JkLt+FLl ? VUmu関fl朗哎昭?… Alt4-3hLfi：+Fll 在VB编辑器中添加一个“模块”将文档里的红色代码加入其中， 请将此文件另存为加载宏 (保存类型中最后一个)然后在菜单 工具-加载宏中选择后即可 2、如何使用函数？ 像其他函数一样用就行如下截图： rel BDuk2 谓熾itt圾工具阎视田迥 feA(i)料毬⑨ 心申且鼻曲⑧”/ O - - ft ￡ - JI 黑 ? 12 J 11 E V E =npngli(Cl) C p E 2010-12-27 找厉庚■年龙L Public Fu nction Non gLi(Optio nal XX_DA TE As Date) Dim Mo nthAdd(11), Non gliData(99), Tia nGan( 9), DiZhi(11), ShuXia ng(11), DayName(30), Mo nN ame(12) Dim curTime, curYear, curM on th, curDay Dim Gon gliStr, Non gliStr, No ngliDayStr Dim i, m, n, k, isE nd, bit, TheDate 获取当前系统时间 curTime = XX_DATE 天干名称 TianGan(O)=甲 TianGan(1)=乙” TianGan(2)=丙 TianGan(3) = 丁 TianGan(4)=戊 TianGan(5)=己 TianGan(6)=庚 TianGan⑺=辛 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) = 亥 属相名称 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