公历与农历的转换

公历与农历的转换Option Explicit Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), Shu

公历与农历的转换 '属相名称 Option Explicit ShuXiang(0) ="鼠" Dim WeekName(7), MonthAdd(11), ShuXiang(1) ="牛" NongliData(99), TianGan(9), ShuXiang(2) ="虎" DiZhi(11), ShuXia ShuXiang(3) ="兔" ng(11), DayName(30), MonName(12) ShuXiang(4) ="龙" Dim curTime, curYear, curMonth, ShuXiang(5) ="蛇" curDay, curWeekday ShuXiang(6) ="马" Dim GongliStr, WeekdayStr, ShuXiang(7) ="羊" NongliStr, NongliDayStr ShuXiang(8) ="猴" Dim i, m, n, k, isEnd, bit, ShuXiang(9) ="鸡" TheDate ShuXiang(10) ="狗" Private Sub Form_Load() ShuXiang(11) ="猪" '获取当前系统时间 '农历日期名 curTime =Now() DayName(0) ="*" '星期名 DayName(1) ="初一" WeekName(0) =" *" DayName(2) ="初二" WeekName(1) ="星期日" DayName(3) ="初三" WeekName(2) ="星期一" DayName(4) ="初四" WeekName(3) ="星期二" DayName(5) ="初五" WeekName(4) ="星期三" DayName(6) ="初六" WeekName(5) ="星期四" DayName(7) ="初七" WeekName(6) ="星期五" DayName(8) ="初八" WeekName(7) ="星期六" DayName(9) ="初九" '天干名称 DayName(10) ="初十" TianGan(0) ="甲" DayName(11) ="十一" TianGan(1) ="乙" DayName(12) ="十二" TianGan(2) ="丙" DayName(13) ="十三" TianGan(3) ="丁" DayName(14) ="十四" TianGan(4) ="戊" DayName(15) ="十五" TianGan(5) ="己" DayName(16) ="十六" TianGan(6) ="庚" DayName(17) ="十七" TianGan(7) ="辛" DayName(18) ="十八" TianGan(8) ="壬" DayName(19) ="十九" TianGan(9) ="癸" DayName(20) ="二十" '地支名称 DayName(21) ="廿一" DiZhi(0) ="子" DayName(22) ="廿二" DiZhi(1) ="丑" DayName(23) ="廿三" DiZhi(2) ="寅" DayName(24) ="廿四" DiZhi(3) ="卯" DayName(25) ="廿五" DiZhi(4) ="辰" DayName(26) ="廿六" DiZhi(5) ="巳" DayName(27) ="廿七" DiZhi(6) ="午" DayName(28) ="廿八" DiZhi(7) ="未" DayName(29) ="廿九" DiZhi(8) ="申" DayName(30) ="三十" DiZhi(9) ="酉" '农历月份名 DiZhi(10) ="戌" MonName(0) ="*" DiZhi(11) ="亥" MonName(1) ="正"