TimeValue函数将给定的输入字符串转换为有效时间。
TimeValue(StringTime)
添加按钮并添加以下功能。
Private Sub Constant_demo_Click()
msgbox(TimeValue("20:30"))
msgbox(TimeValue("5:15"))
msgbox(TimeValue("2:30:58"))
End Sub
执行上述功能时,会产生以下输出。
8:30:00 PM
5:15:00 AM
2:30:58 AM