excel vba 怎么使用时间函数

发布网友 发布时间：2022-04-22 04:02

我来回答

共2个回答

热心网友 时间：2023-12-04 08:54

所需工具材料：EXCEL（以2007版本为例）
方法如下：
一、Now 函数
Now函数返回当前系统日期和时间。
添加一个按钮，并添加以下功能：
Private Sub Constant_demo_Click()
Dim a as Variant
a = Now()
msgbox("The Value of a : " & a)
End Sub

二、Hour函数
Hour函数返回一个介于0和23表示当天指定时间戳的小时。
添加一个按钮，并添加以下功能：
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Hour("3:13:45 PM"))
msgbox("Line 2: " & Hour("23:13:45"))
msgbox("Line 3: " & Hour("2:20 PM"))
End Sub

三、Minute函数
Minute函数返回一个介于0和59表示小时内指定时间戳记的分钟。
添加一个按钮，并添加以下功能：
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Minute("3:13:45 PM"))
msgbox("Line 2: " & Minute("23:43:45"))
msgbox("Line 3: " & Minute("2:20 PM"))
End Sub

四、Second函数
Second函数返回一个介于0和59，代表小时指定时间戳记的秒值。
添加一个按钮，并添加以下功能：
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Second("3:13:25 PM"))
msgbox("Line 2: " & Second("23:13:45"))
msgbox("Line 3: " & Second("2:20 PM"))
End Sub

五、Time函数
Time函数返回当前系统时间。
Private Sub Constant_demo_Click()
msgbox("Line 1: " & Time())
End Sub

六、Timer函数
Timer函数(定时器)返回自12:00 AM秒和毫秒数。
添加一个按钮，并添加以下功能：
Private Sub Constant_demo_Click()
msgbox("Time is : " & Now())
msgbox("Timer is: " & Timer())
End Sub

热心网友 时间：2023-12-04 08:54

vba中你可以打开object broswer,

然后比如找到datetime这个classes, 后面就会显示它下面的所有函数。
具体你要用什么时间函数，你自己找。