老师，以下为显示农历日期的代码，如果遇到闰月，在日期前加上“闰”字，如“闰二月十四”，应该如何修改代码，请老师指点。
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
[此贴子已经被作者于2023/4/4 22:28:00编辑过]
加好友 
发短信
Post By：2023/4/4 22:21:00 [只看该作者]
