1、如何在本计算机中的其他文件中使用？ 在VB 编辑器中添加一个“模块”将文档里的红色代码加入其中，请将此文件另存为加载宏（保存类型中最后一个）然后在菜单 工具-加载宏 中选择后即可 2、如何使用函数？ 像其他函数一样用就行如下截图： Pu blic Fu nction NongLi(Optional XX_DATE As Date) Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), Shu Xiang(11), Day Name(30), MonName(12) Dim cu rTime, cu rYear, cu rMonth, cu rDay Dim GongliStr, NongliStr, NongliDay Str Dim i, m, n, k, isEnd, bit, TheDate '获取当前系统时间 cu rTime = 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) = "亥" '属相名称 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) = "二十" Day Name(21) = "廿一" Day Name(22) = "廿二" Day Name(23) = "廿三" Day Name(24) = "廿四" Day Name(25) = "廿五" Day Name(26) = "廿六" Day Name(27) =...
