在菜单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
加好友 
发短信
Post By：2018/4/14 9:38:00 [只看该作者]
