Excel VBA 将文本 YYYYMMDD 转换为日期 - VBA

在 Excel VBA 中，将文本格式的日期（例如 YYYYMMDD）转换为日期格式是一个常见需求。 本文将介绍如何通过 VBA 代码来实现该转换。

方法一：使用 VBA 的 CDate() 函数

VBA 中的 CDate 函数可以将字符串转换为日期/时间变量。因此，通过以下代码，我们可以使用 CDate() 函数来将字符串 YYYYMMDD 转换为 MM/DD/YYYY 格式的日期。

Sub ConvertTextToDate()
  Dim dateString As String
  dateString = "20220101" '代表 2022 年 1 月 1 日 
  MsgBox Format(CDate(Left(dateString, 4) & "/" & _
                      Mid(dateString, 5, 2) & "/" & _
                      Right(dateString, 2)), "mm/dd/yyyy")
End Sub

在上面的代码示例中，我们使用 Format() 函数来提供我们想要的日期格式。将 "mm/dd/yyyy" 修改为你所需的任何日期格式即可。

方法二：使用 VBA 中的 DateSerial 函数

VBA 也有一个 DateSerial() 函数，可以通过在代码中指定年、月、日来创建一个日期变量。 因此，我们可以通过以下代码将 YYYYMMDD 转换为 mm/dd/yyyy 格式的日期。

Sub ConvertTextToDate()
  Dim dateString As String
  dateString = "20220101" '代表 2022 年 1 月 1 日 
  MsgBox Format(DateSerial(Left(dateString, 4), Mid(dateString, 5, 2), Right(dateString, 2)), "mm/dd/yyyy")
End Sub

在上面的代码示例中，我们也使用 Format() 函数来提供我们想要的日期格式。 将 "mm/dd/yyyy" 修改为你所需的任何日期格式即可。

总之，以上两种方法都可以将文本格式的日期（例如 YYYYMMDD）转换为日期格式。 如果你需要将许多日期转换为日期格式，则可以对上述示例代码进行修改，以便更轻松地在 VBA 中执行大规模操作。