找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
问题
取消精华
首页精华问答
取消推荐
高端用户推荐
申请置评
已申请置评
修改
修改标签
添加标签
官方认证
取消官方认证
修改标签
添加标签
转移分类
删除
{{itemCategory}}
收藏({{answerDetail.Q_FavoriteCounts}})
手机扫码追踪该问题,
觉得实用,立即去分享!
点击复制链接
专家建议
取消最佳答案
修改
1、建立了两个内部变量(StartTime 和 EndTime),数据类型必须设置为 ?DateTime?。这两个变量将作为 ExportDatabaseLog 函数的输入参数。
2、用于触发导出的按钮“点击”事件中,添加以下VBS脚本。该脚本会将当前系统时间赋值给结束时间,并将开始时间设置为当天的00:00:00(或者你需要的其他逻辑,如最近1小时)。
编写脚本
' 获取当前系统时间
Dim NowTime
NowTime = Now()
' 设置结束时间为当前时间
HMIRuntime.Tags("EndTime").Write NowTime
' 设置开始时间为当天的0点0分0秒
' Date() 返回当前日期部分,CDate 将其转换为日期时间类型的00:00:00
HMIRuntime.Tags("StartTime").Write CDate(Date())
' 调用导出函数
' 注意:ExportDatabaseLog的具体参数需根据你的组态版本确认,通常包含文件名、路径、开始时间、结束时间等。
3、优化时间范围选择?:
为了更方便地调整时间范围,可以创建多个按钮,分别预设不同的时间跨度:
“导出今天”:开始时间 = CDate(Date()),结束时间 = Now()
“导出最近1小时”:开始时间 = DateAdd("h", -1, Now()),结束时间 = Now()
“导出最近24小时”:开始时间 = DateAdd("h", -24, Now()),结束时间 = Now()
这样无需手动在时间域中滚动选择年份和月份,只需点击对应按钮即可快速导出。
等您来回答
换一换
{{item.CoinValue}}西币
{{item.VisitNum}}人想问
本版相关问题
换一换
专家置评
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!

官方商城-正品备件
DIOMIS