vba中如何只取时间中的时分

在VBA中，你可以使用`TimeValue`函数将一个字符串转换为时间对象，然后使用`Hour`和`Minute`函数来提取小时和分钟。以下是一个示例代码，它展示了如何从一个时间字符串中提取时分：

```vba

Sub ExtractHoursAndMinutes()

Dim timeString As String

Dim timeValue As Variant

Dim hours As Integer

Dim minutes As Integer

' 假设这是你的时间字符串

timeString = "14:30:45"

' 将字符串转换为时间值

timeValue = TimeValue(timeString)

' 提取小时和分钟

hours = Hour(timeValue)

minutes = Minute(timeValue)

' 输出结果

MsgBox "Hours: " & hours & ", Minutes: " & minutes

End Sub

```

这段代码将显示一个消息框，其中包含从`timeString`变量中提取的小时和分钟。在这个例子中，如果`timeString`是"14:30:45"，那么消息框将显示"Hours: 14, Minutes: 30"。