帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-11-5 12:28 | 只看該作者

[發問] VB更改win10系統時間,權限問題

下面程式碼,在Win7系統執行沒有問題,但如在Win10系統執行會出現下圖錯誤
請教大大,此問題要怎麼解決

Date = DateAdd("m", 1, Date) '日期 + 1個月

樓主熱帖

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-11-5 13:45 | 只看該作者

回復 1# blue2263

Date = DateAdd("m", 1, Date) ' 日期 + 1個月

複製代碼

因為 Date 為系統之內在函數，
是不允許使用者任意更動的。
P.S. "Date" 為系統之保留字 (Reserved Word)；
但如果修改為：

dd = DateAdd("m", 1, Date) ' 日期 + 1個月

複製代碼

則是 OK 的。

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

3^#

發表於 2016-11-6 07:02 | 只看該作者

回復 2# c_c_lai
C大你好
問題是,我在Win7系統執行沒問題,但在Win10系統上,會出現錯誤
不知有沒有更改Win10權限的方法?

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-11-6 07:44 | 只看該作者

本帖最後由 c_c_lai 於 2016-11-6 07:54 編輯

回復 3# blue2263
一樣是使用同一 Office 版本？
我是用 Office 2010，一測便如同你發生的訊息。
據我所知 Office 2010 語法檢查比較嚴謹，它的
保留字或內在涵式是不能當變數使用拿來被 Assign 值的。
與 Windows 版本無關。
(沒有更改權限指的就是以上的解說)

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

5^#

發表於 2016-11-6 09:22 | 只看該作者

回復 4# c_c_lai
我用的也是office2010
(沒有更改權限),了解謝謝
感謝C大解答

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-11-6 09:43 | 只看該作者

本帖最後由 c_c_lai 於 2016-11-6 09:54 編輯

回復 5# blue2263
這三個例子，你用 F8 去執行，便可觀察出來：

Sub Ex()
Date = DateAdd("m", 1, Date) ' 日期 + 1個月
MsgBox Date
End Sub

複製代碼

Sub Ex2()
Dim Date
Date = DateAdd("m", 1, Date) ' 日期 + 1個月
MsgBox Date
End Sub

複製代碼

基本上，上兩個用法在正規的程式邏輯語法應用上是不被允許的，
這也是 VB 本身的語法漏洞，到了 Windows 10 內部作業系統程式庫
即將它補正了。

Sub Ex3()
Dim dd
dd = DateAdd("m", 1, Date) ' 日期 + 1個月
MsgBox dd ' 亦為日期型態
End Sub

複製代碼

TOP

blue2263

中學生 Rank: 2

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2025-5-26

7^#

發表於 2016-11-6 13:59 | 只看該作者

回復 6# c_c_lai
原來如此,了解了
謝謝C大解答

TOP

jackyq

中學生 Rank: 2

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2025-5-3

8^#

發表於 2016-11-6 15:49 | 只看該作者

本帖最後由 jackyq 於 2016-11-6 15:53 編輯

VBA.Date 本身就是被設計成可以接受賦值的

https://msdn.microsoft.com/en-us/library/office/gg278644.aspx

(1) 回傳系統時間
Returns a Variant (Date) containing the current system date.

(2) 設定系統時間 ( 所以是可以接受 Date = DateAdd("m", 1, Date) 的寫法 )
To set the system date, use the Date statement.

TOP