VBA TimeValue 字符串转时间

将字符串转化为时间。

语法

Function TimeValue(TimeStr As String)

将字符串TimeStr转化为Date类型，只含时间数据。

示例

Sub sub7()
  Dim d1 As Date
  d1 = TimeValue("11:20:30") '字符串解析为时间
  Debug.Print d1
  Debug.Print "小时:" & Hour(d1) & ",分钟:" & Minute(d1)
End Sub

输出结果：

11:20:30 
小时:11,分钟:20

第07章 VBA工具类