'今天是农历2018-2-29:
Dim ln As New Lunar(Date.Today)
Output.Show(ln.LunarDate)
----------
Dim ln As New Lunar(Date.Today)
Dim str As String = ""
Dim ar() As String = ln.LunarDate.Split("-")
If ar(1) = "2" AndAlso (ar(2) = "29" OrElse ar(2) = "30")
str = "二月"
If ar(2) = "29"
str &= "二十九"
Else
str &= "三十"
End If
Else
Dim d As Date = cdate(ln.LunarDate)
If d.Day <= 10 Then
str = cldate(d).Substring(5).trim("日")
str = str.Insert(str.Length-1, "初")
Else
str = cldate(d).Substring(5).trim("日")
End If
End If
加好友 
发短信
Post By：2018/4/14 9:43:00 [显示全部帖子]
