- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 运行错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185841)
-- 发布时间：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
-- 发布时间：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)
-- 发布时间：2023/3/20 22:18:00
--
这也是之前咨询老师给出的代码，请问老师应该如何写合适？
-- 发布时间：2023/3/20 22:18:00
--
需要做什么功能？
-- 发布时间：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
-- 发布时间：2023/3/20 22:39:00
--
谢谢老师！问题完美解决。