全文约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：如果想查看更具体的视频操作，可以进入本人的视频作品内查看。
