以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  运行错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185841)
--  作者：zyxhx
--  发布时间：2023/3/20 19:50:00
--  运行错误

程序启动时提示错误，请老师指点并帮忙修改一下代码，谢谢！

之前运行都正常，就今天提示错误。


错误如图：


图片点击可在新窗口打开查看此主题相关图片如下：运行错误.png
图片点击可在新窗口打开查看

附：SystemIdle事件代码：

\'以下代码用于在状态栏显示当前用户及日期
static ln As New Lunar(Date.Today)
Dim str As String = ""
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
statusBar.Message1 =  "   " & "使用单位:" & User.Name & "   " & "操作员:" & _UserName & "  "  & _
 "今天是: " & Format(Date.Today,"yyyy-MM-dd") & "  " & format(Date.now, "HH:mm:ss") & "  农历"  & _
 str & "  " & Format(Date.Today,"dddd" )
[此贴子已经被作者于2023/3/20 19:51:10编辑过]
--  作者：有点蓝
--  发布时间：2023/3/20 20:03:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=185832&skin=0
--  作者：zyxhx
--  发布时间：2023/3/20 21:31:00
--  
是不是转换成中文及加上“初”和“日”后，遇到每年农历2月29到30就会报错？

然后我修改系统时间为农历3月以后就不报错了。以上代码如何修改才能完美解决既显示中文初几日，遇到农历2月29日又不会报错的方法，我看了帮助也没有找到解决的方法，请老师明示。
[此贴子已经被作者于2023/3/20 21:44:20编辑过]
--  作者：有点蓝
--  发布时间：2023/3/20 22:12:00
--  
下面这句出错，不能这样直接转换的。另外没看懂这句代码是干嘛用的

Dim d As Date = CDate(ln.LunarDate)
--  作者：zyxhx
--  发布时间：2023/3/20 22:18:00
--  
这也是之前咨询老师给出的代码，请问老师应该如何写合适？
--  作者：有点蓝
--  发布时间：2023/3/20 22:18:00
--  
需要做什么功能？
--  作者：zyxhx
--  发布时间：2023/3/20 22:24:00
--  
功能不变：比如今天是农历二月二九，但需要不再提示到DATE的类型转换无效。
[此贴子已经被作者于2023/3/20 22:27:10编辑过]
--  作者：有点蓝
--  发布时间：2023/3/20 22:30:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=117532&skin=0
--  作者：zyxhx
--  发布时间：2023/3/20 22:39:00
--  
谢谢老师！问题完美解决。