小时功能返回0到23之间的数字,表示指定时间戳的一天中的小时。
Hour(time)
添加按钮并添加以下功能。
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
执行上述功能时,会产生以下输出。
Line 1: 15
Line 2: 23
Line 3: 14