主题：农历日历代码出错

在菜单systemIdle中通过如下代码设置了状态栏中的农历日期，在昨天之前运行都是正常的，今天打开系统就跳出错误（如图1），项目不能继续。重启电脑，更改电脑日期，项目可以正常启动，但农历日历显示错误（如图2），请老师帮忙修改代码，谢谢！

 

代码：

static ln As New Lunar(Date.Today)
Dim str As String = ""
Dim d As Date = cdate(ln.LunarDate)  '.adddays(-11)
If d.Day <= 10 Then
    str = cldate(d).Substring(5).trim("日")
    str = str.Insert(str.Length-2, "初")
Else
    str = cldate(d).Substring(5).trim("日")
End If

statusBar.Message1 = "当前用户:" & User.Name & "  |  今天是:" & Format(Date.Today,"yyyy年MM月dd日 dddd" & " 农历:" & str )
statusBar.DefaultMessage = statusBar.Message1

 

今天（2018年4月14日）启动跳出的提示：（图1）

 

 

 

此主题相关图片如下：图1.png

 

更改电脑日期后，显示如下（图2）

 

此主题相关图片如下：图2.png

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=117532