转载-公历转换农历VB示例
摘要:
Option ExplicitPrivate LunarInfo(1 To 150) As Double '从1900-2049年这150年的农历信息码Private SolarMonth(1 To 12) As Integer '阳历12个月的天数Private Gan(1 To 10) As String '农历的天干Private Zhi(1 To 12) As String '农历的地支Private Animals(1 To 12) As String '农历的属象Private SolarTerm(1 To 24) As String 阅读全文
posted @ 2014-03-27 17:45 xbj_hyml 阅读(2003) 评论(1) 推荐(0) 编辑