主题：求助：农历日期格式化问题，求纠正代码

If Forms("黔源综合管理主窗体").opened Then
    Dim a As WinForm.Label = Forms("黔源综合管理主窗体").Controls("Label1")
    Dim ln As New Lunar(Date.Today)
    Dim b As String = ln.LunarDate
    a.text = "现在北京时间是:" & Format(Date.Now(), "F") & "       今天是农历年:" & Format(b,"D")
Else
    Return
End If

 效果如图：