VB日历代码

Type LunarInfo iLorSMonth(13) As Integer '定义阴历大小月标志数组 iTotalDays As Integer