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

您可以使用 VBA 中的DateValue函数从给定字符串返回日期值。

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

 Sub GetDateValue()
    
Dim i As Integer

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

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

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

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

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

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

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

 Sub GetDateValue()
    
Dim i As Integer

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

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

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

例如：

• DateValue 函数从 01/01/2023 10:15:34 返回01/01/2023
• DateValue 函数从01/03/2023 12:34:18 PM 返回 01/03/2023
• DateValue 函数从 01/05/2023 8:23:00 返回01/05/2023

等等。

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

其他资源

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

VBA：如何比较日期
VBA：如何从日期获取月份名称
VBA：数字大于日期