vb 获取bat结果_新手3分钟学会2个VB脚本，实现西门子Wincc V14项目定时加锁

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