主题：公农历转换

定义一个Lunar的语法有两种。

语法一

New Lunar(Date)

Date: 公历日期

示例

'输出2002年3月17日对应的农历日期
Dim ln As New Lunar(#3/17/2002#)
output.show(ln.LunarDate)
'输出2006年8月25日对应的农历日期
ln = New Lunar(#8/25/2006#)
Output.show(ln.LunarDate)
If ln.IsLeapMonth Then
    Output.Show("这是闰月!")
End If