全文約600字，通讀約3分鐘
看完本文，你將學會以下內容：
（1）：如何獲取整數型系統日期。
（2）：如何在指定日期將項目鎖定。
（3）：問題思考
一：VB腳本獲取系統整數型日期
前面章節曾經提到，Date函數可以獲取系統的日期，比如2020/4/30。但是，此返回值無法參與比較（16進制，相對較麻煩）。那麼如何在Date的基礎上獲取整數型的年份、月份、日期呢？
1.1:Year函數、Month函數、Day函數
Year:獲取系統當前的年份，返回一個整數型數據。比如2020
Month ：獲取系統當前的月份，返回一個整數型數據。比如4
Day: 獲取系統當前的日期，返回一個整數型數據。比如30
那麼三者如何使用呢？
1.2：函數的使用方法
首先，分別定義三個變量A,B,C，用來存儲年月日的返回值。代碼如下
Sub 腳本名稱（）
Dim A,B,C //A為年份，B為月份，C為日期
A=Year(Date) //將年份賦值給A
B=Month(Date) //將月份賦值給B
C=Day(Date) //將日期賦值給C
End Sub
現在，我們已經將整數型的年份、月份、日期都獲取到了。那麼我們便可以利用它們進行一些判斷，進而決定是否執行下一步任務。
二：如何在指定日期鎖定項目
當你看到這裡，恭喜你，你應該已經學會了整數型日期的獲取。那麼問題來了，如果你想讓你編寫的項目在每年的今天（4月30日）自動鎖定，如何做呢？繼續往下看，看看我的解決方法和你思考的是否一樣。
指定日期鎖定項目代碼：
Sub 腳本名稱（）
Dim B,C
B=Month(Date)
C=Day(Month)
If B=4 And C=30 Then
此處填寫項目鎖定的方式，比如切換到不可操作的畫面
End If
End Sub
具體代碼編寫圖如下圖所示：
實際代碼圖
仿真結果如下所示，按下按鈕觸發腳本檢測，假如是設定的日期，則會跳轉到無法操作的畫面。
腳本觸發按鈕
跳轉到鎖定畫面
三：問題思考
1：如何做到每天項目自動觸發腳本進行檢測呢？
PS：如果想查看更具體的視頻操作，可以進入本人的視頻作品內查看。
