求解实时错误'70' - 编程论坛

ZHRXJR2017-03-01 11:30

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() 是强行转换为日期数据的函数

Artless2017-03-02 01:33

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

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

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

没权限修改日期