VBA如何设置系统时间，教你这么做，学会就是比别人强

No.1

Excel 中如何获取时间和设置时间。

以前不知道，VBA可以做很多事情，实现很多功能。

对于系统时间，也可以用vba一行来代码实现修改。

读完本章内容，你也会设置电脑系统时间。

Excel对于时间有上述三个函数来实现返回。

Hour(Time)返回小时

Minute(Time)返回分钟

Second(Time)返回秒

使用也很简单，参数Time是一个时间常量或变量。

如下图所示：

分别返回当前的系统时间的时、分和秒。

No.2

语法

小时Hour函数语法：

分钟Minute函数语法：

秒Second函数语法：

No.3

代码

下图为实现返回时、分、秒的代码示例：

返回'时'

Private Sub CommandButton1_Click()Dim HH = Hour(VBA.Time)Me.Label1.Caption = ' 当前时间：' & H & ' 时'End Sub

返回'分'

Private Sub CommandButton2_Click()Dim MM = Minute(VBA.Time)Me.Label2.Caption = ' 当前时间：' & M & ' 分'End Sub

返回'秒'

Private Sub CommandButton3_Click()Dim SS = Second(VBA.Time)Me.Label3.Caption = ' 当前时间：' & S & ' 秒'End Sub

No.4

设置时间

下面介绍如何设置系统时间。

设置时间用到一个'语句'，Time。

Time是一个语句，它的功能就是设置系统时间。

语法：

Time=time

前一个Time是语句，等于号右边的time是时间常数或变量，时间字符串等值。

如下例所示：

Private Sub CommandButton4_Click()Dim sTime, y As IntegersTime = #1:01:01 PM#y = MsgBox(sTime & Chr(10) & '确定要设置时间吗？', vbYesNo, '提示')If y = 6 Then    Time = sTimeEnd IfEnd Sub

变量sTime就是设置的时间变量。

时间设置功能，就是这么简单。

如果不知道，可能也是一件很难的事情。

所以，记住它，用好它，一切都变得容易了。