【开源】孟坤日历控件（自制控件的试水之作）

链接发布楼

当前功能：
获取日历控件当前选定的年月日： Calendar1.ChoYear & "-" & Calendar1.ChoMonth & "-" & Calendar1.ChoDay
跳转到指定日期： Calendar1.TurnTo 2049, 1, 5 '公历 年，月，日
得到中文的星期格式 MsgBox Calendar1.GetWeekDayName(Calendar1.ChoYear, Calendar1.ChoMonth, Calendar1.ChoDay)
得到干支 数据范围 ： 公元4年~无限 超出范围的（Year<4）将返回空字符串 "" MsgBox Calendar1.GetGanZhi(Calendar1.ChoYear)
阳历转农历 MsgBox Calendar1.GetLunarYear(Calendar1.ChoYear, Calendar1.ChoMonth, Calendar1.ChoDay)
得到农历月 MsgBox Calendar1.GetLunarMonth(Calendar1.ChoYear, Calendar1.ChoMonth, Calendar1.ChoDay)
得到农历日期 MsgBox Calendar1.GetLunarDay(Calendar1.ChoYear, Calendar1.ChoMonth, Calendar1.ChoDay)
阳历年转农历年 MsgBox Calendar1.GetLunarYearC(Calendar1.ChoYear, Calendar1.ChoMonth, Calendar1.ChoDay)
跳转到下一月 Calendar1.NextMonth
跳转到上一月 Calendar1.PreviousMonth
跳转到下一年 Calendar1.NextYear
跳转到上一年 Calendar1.PreviousYear
回到今天 Calendar1.BackToday
得到年代 数据范围：公元1874~无限 ,超出范围的将返回字符串“未知” MsgBox Calendar1.GetDynastyName(Calendar1.ChoYear)
得到属相 数据范围 ： 公元4年~无限 超出范围的（Year<4）将返回空字符串 "" MsgBox Calendar1.GetZodiac(Calendar1.ChoYear)
得到星座信息 MsgBox Calendar1.GetConstellation(Calendar1.ChoMonth, Calendar1.ChoDay) & "座"

效果不错！不知道节气准备否