如何在 vba 中使用 timevalue 函数（附示例）

您可以使用 VBA 中的TimeValue函数返回给定字符串的时间值。

以下是在实践中使用此功能的常见方法：

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

这个特定的宏将提取A2:A7范围内的日期和时间的时间值，并返回B2:B7相应范围内的时间值。

以下示例展示了如何在实践中使用此语法。

示例：如何在 VBA 中使用 TimeValue 函数

假设 Excel 中有以下日期/时间列：

假设我们要从 A 列中的每个日期时间中提取时间并将其显示在 B 列中。

我们可以创建以下宏来执行此操作：

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

当我们运行这个宏时，我们会收到以下输出：

B 列显示 A 列中每个日期/时间的时间值。

例如：

• TimeValue 函数返回截至 01/01/2023 10:15:34 的10:15:34
• TimeValue 函数返回截至 03/01/2023 12:34:18 PM的 12:34:18 PM
• TimeValue 函数返回8:23:00截至 01/05/2023 8:23:00

等等。

注意：您可以在此处找到 VBA 中TimeValue函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中比较日期
如何使用VBA插入时间戳
如何在VBA中设置时间格式