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

您可以使用 VBA 中的DateSerial函数返回特定日、月和年的日期。

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

这个特定的宏将使用 C 列中的年份值、B 列中的月份值和 A 列中的日值返回D2:D13范围内的日期值。

以下示例展示了如何在实践中使用DateSerial函数。

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

假设我们在 Excel 中有以下列，显示不同日期的日、月和年：

假设我们要显示 D 列中的日期值，使用每行中的日、月、年值。

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

D 列显示分别使用 A、B 和 C 列中的日、月和年值得出的日期值。

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

其他资源

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

如何在VBA中比较日期
如何在VBA中将日期转换为周数
如何在VBA中计算两个日期之间的天数