VB日历代码.docVIP

Type LunarInfo iLorSMonth(13) As Integer 定义阴历大小月标志数组 iTotalDays As Integer 定义春节开始的天数 iLeapMonth As Integer 定义闰月的月份 bLeapYear As Boolean 定义闰年标志 End Type Type LunarDate strChinseEra As String * 4 阴历年的干支 strLunarMonthName As String * 8 阴历月份名称 strLunarDayName As String * 4 阴历日子名称 strLunarAnimal As String * 2 阴历年份属相 iLunarDay As Integer 阴历日子数值 iLunarMonth As Integer 阴历月份数值，如果