求解实时错误'70' - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 求解实时错误'70'

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1931 人关注过本帖

标题：求解实时错误'70'

只看楼主加入收藏

wide58

来　自：重庆
等　级：新手上路
帖　子：2
专家分：0
注　册：2017-3-1
结帖率：50%

楼主

已结贴√ 问题点数：20 回复次数：2

求解实时错误'70'

我用CAD2008，需要改系统时间，我用W7+32系统每次运行cad前，就要改系统日期，用vb做了一段代码：
Date=2005 & "-" & Month(Date) & "-" & Day(Date)
一运行，就提示“实时错误 '70' 拒绝的权限”

但在Win98系统，又能运行。是怎么解决，望赐教！！

2017-03-01 09:57

ZHRXJR

等　级：版主
威　望：125
帖　子：1034
专家分：5519
注　册：2016-5-10

第 2 楼

得分:10

Date=2005 & "-" & Month(Date) & "-" & Day(Date)
这个语句有问题，1、Date是系统函数，不能作为变量；2、2005是数字，在你的语句中是体现的是变量，好像数字不能作为变量，建议修改为:
DateX= "2005" & "-" & Month(Date) & "-" & Day(Date) 或直接调用 Date 函数就可以，或：
Dim DateX AS Date
DateX = CDate(Text1.Text & "-" & Text2.Text & "-" & Text3.Text) ，其中Text1.Text、Text2.Text、Text3.Text分别是年、月、日，CDate() 是强行转换为日期数据的函数

请不要选我！！！

2017-03-01 11:30

Artless

等　级：贵宾
威　望：103
帖　子：4211
专家分：28888
注　册：2009-4-8

第 3 楼

得分:10

以下是引用wide58在2017-3-1 09:57:52的发言：

我用CAD2008，需要改系统时间，我用W7+32系统每次运行cad前，就要改系统日期，用vb做了一段代码：
Date=2005 & "-" & Month(Date) & "-" & Day(Date)
一运行，就提示“实时错误 '70' 拒绝的权限”

但在Win98系统，又能运行。是怎么解决，望赐教！！

没权限修改日期

无知

2017-03-02 01:33

快速回复：求解实时错误'70'