VBA 里用`Format`函数进行日期格式化既方便又直观。

ning84

在 VBA 里用`Format`函数进行日期格式化既方便又直观。不过如果你不想用`Format`，也可以用一些替代思路，下面为你详细介绍两种：

方法一：通过字符串拆分和补零操作实现
```vba
Sub ConvertDateWithoutFormat()
    Dim originalDate As String
    Dim parts() As String
    Dim yearPart As String
    Dim monthPart As String
    Dim dayPart As String
    Dim formattedDate As String
   
    originalDate = "2025/3/12 20:32:54"
    ' 以空格分割日期和时间部分，取日期部分
    parts = Split(originalDate, " ")
    ' 以斜杠分割日期部分，获取年、月、日
    parts = Split(parts(0), "/")
   
    yearPart = parts(0)
    monthPart = parts(1)
    If Len(monthPart) = 1 Then
        monthPart = "0" & monthPart
    End If
    dayPart = parts(2)
    If Len(dayPart) = 1 Then
        dayPart = "0" & dayPart
    End If
   
    formattedDate = yearPart & monthPart & dayPart
    MsgBox formattedDate
End Sub
```
代码解释
1. 拆分字符串：先用`Split`函数以空格分割原始字符串，提取出日期部分，再以斜杠分割日期部分得到年、月、日对应的字符串。
2. 补零操作：检查月和日对应的字符串长度，如果是一位数就补零。
3. 拼接字符串：把处理好的年、月、日字符串拼接成`yyyymmdd`格式。

方法二：使用`Mid`函数结合日期计算
```vba
Sub ConvertDateUsingMid()
    Dim originalDate As String
    Dim dateValue As Date
    Dim yearPart As String
    Dim monthPart As String
    Dim dayPart As String
    Dim formattedDate As String
   
    originalDate = "2025/3/12 20:32:54"
    dateValue = CDate(originalDate)
   
    yearPart = Str(Year(dateValue))
    monthPart = Str(Month(dateValue))
    If Len(monthPart) = 1 Then
        monthPart = "0" & monthPart
    End If
    dayPart = Str(Day(dateValue))
    If Len(dayPart) = 1 Then
        dayPart = "0" & dayPart
    End If
   
    formattedDate = yearPart & monthPart & dayPart
    MsgBox formattedDate
End Sub
```
代码解释
1. 转换为日期类型：用`CDate`函数将原始字符串转换为日期类型。
2. 提取日期信息：用`Year`、`Month`、`Day`函数分别提取年、月、日信息，将其转换为字符串。
3. 补零操作：对月和日对应的字符串进行长度检查，若为一位数则补零。
4. 拼接字符串：把年、月、日字符串拼接成`yyyymmdd`格式。

尽管这两种方法不直接用`Format`函数，但本质还是手动处理字符串以达成日期格式化，相较于`Format`函数而言，代码更繁琐，所以`Format`函数在处理这类需求时是更优选择。

饮冰e士

还有第三种方法，工作表函数Text
才发现Text可以用e表示年份，Format却不行。

练习编程，这是个不错的思路。但实际应用中一般都是化繁为简，很少有舍近求远，把简单的事情往复杂里去干的。