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 H
H = Hour(VBA.Time)
Me.Label1.Caption = " 当前时间：" & H & " 时"
End Sub

返回"分"

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

返回"秒"

Private Sub CommandButton3_Click()
Dim S
S = 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 Integer
sTime = #1:01:01 PM#
y = MsgBox(sTime & Chr(10) & "确定要设置时间吗？", vbYesNo, "提示")
If y = 6 Then
    Time = sTime
End If
End Sub

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

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

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

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

欢迎关注、收藏。

---END---

Tags：subcommand