Foxtable(狐表) → 用户栏目 → 专家坐堂 → 运行错误


  共有2706人关注过本帖树形打印复制链接

主题：运行错误
帅哥哟，离线，有人找我吗？
zyxhx
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		运行错误  发帖心情 Post By：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110741 积分：563631 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/20 20:03:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2023/3/20 21:31:00 [只看该作者]

是不是转换成中文及加上“初”和“日”后，遇到每年农历2月29到30就会报错？

然后我修改系统时间为农历3月以后就不报错了。以上代码如何修改才能完美解决既显示中文初几日，遇到农历2月29日又不会报错的方法，我看了帮助也没有找到解决的方法，请老师明示。
[此贴子已经被作者于2023/3/20 21:44:20编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110741 积分：563631 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/20 22:12:00 [只看该作者]

下面这句出错，不能这样直接转换的。另外没看懂这句代码是干嘛用的

Dim d As Date = CDate(ln.LunarDate)
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2023/3/20 22:18:00 [只看该作者]

这也是之前咨询老师给出的代码，请问老师应该如何写合适？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110741 积分：563631 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/20 22:18:00 [只看该作者]

需要做什么功能？

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2023/3/20 22:24:00 [只看该作者]

功能不变：比如今天是农历二月二九，但需要不再提示到DATE的类型转换无效。
[此贴子已经被作者于2023/3/20 22:27:10编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110741 积分：563631 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/20 22:30:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=117532&skin=0

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2023/3/20 22:39:00 [只看该作者]

谢谢老师！问题完美解决。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询