看2楼链接，有注释的，把农历的代码拿出来使用即可
'农历月日
Dim nl As New Lunar(Date.Today())
Dim Month As String = "|正|二|三|四|五|六|七|八|九|十|冬|腊"
Dim str As String
Dim Months() As String
Months = Month.split("|")
If nl.LeapMonth = Nothing OrElse nl.Month < nl.LeapMonth Then
str = Months(nl.Month)
End If
If nl.LeapMonth = nl.Month Then
str = "闰" & Months(nl.LeapMonth -1)
End If
If nl.LeapMonth > 0 Then
If nl.Month > nl.LeapMonth Then
str = Months(nl.Month -1)
End If
End If
Dim Multi As String = "|初一|初二|初三|初四|初五|初六|初七|初八|初九|初十|十一|十二|十三|十四|"
Multi = Multi & "十五|十六|十七|十八|十九|廿十|廿一|廿二|廿三|廿四|廿五|廿六|廿七|廿八|廿九|卅十"
Dim Values() As String
Values = Multi.split("|")
msgbox( str & "月 " & Values(nl.Day))
加好友 
发短信
Post By：2020/3/23 15:03:00 [显示全部帖子]
