请参考
Dim ln As New Lunar(#3/17/2002#)
ln = New Lunar(#8/25/2006#)Output.show(ln.LunarDate)
If ln.IsLeapMonth Then Output.Show("这是闰月!")End If
加好友 
发短信
Post By：2013/5/6 23:11:00 [显示全部帖子]
