VBA处理混合内容中ddmmmyy日期转ddmmyyyy数字格式求助

首先，你的代码里有一个关键错误：CDate("dt")是把字符串字面量"dt"转换成日期，而不是引用变量dt的值，这就导致VBA无法识别有效日期，最终得到的是默认的0日期（对应1899年12月30日），所以输出会显示为[00:00:00]。

接下来，我们一步步解决这个问题，确保日期能正确提取并转换为你需要的ddmmyyyy数字格式：

步骤1：修正变量引用错误 #

把CDate("dt")改成CDate(dt)，这样才会使用你提取的日期字符串变量。

步骤2：确保年份正确解析 #

直接用CDate处理"16dec 21"时，部分系统可能会把末尾的"21"识别为1921年而不是2021年，所以更可靠的方式是手动拆分日期的日、月、年部分，再组合成正确的日期：

完整代码示例 #

Sub ExtractAndFormatDate()
    ' 获取单元格中的混合内容
    Dim cellText As String
    cellText = Range("A8").Value
    
    ' 提取前8个字符的日期片段（示例："16dec 21"）
    Dim dateSegment As String
    dateSegment = Left(cellText, 8)
    
    ' 拆分日期的日、月、年部分
    Dim dayPart As Integer
    dayPart = CInt(Left(dateSegment, 2)) ' 提取"16"
    
    Dim monthPart As Integer
    ' 把月份缩写转换成数字（比如"dec"→12）
    monthPart = Month(DateValue("01" & Mid(dateSegment, 3, 3) & "2000"))
    
    Dim yearPart As Integer
    ' 把两位年份转换为四位（假设是2000年后的年份）
    yearPart = 2000 + CInt(Right(dateSegment, 2))
    
    ' 组合成完整的日期
    Dim expdt As Date
    expdt = DateSerial(yearPart, monthPart, dayPart)
    
    ' 格式化为ddmmyyyy的字符串（数字格式展示）
    Dim formattedDate As String
    formattedDate = Format(expdt, "ddmmyyyy")
    
    ' 测试输出，后续可以把这个变量插入邮件内容
    Debug.Print formattedDate ' 输出：16122021
End Sub

简化版（如果系统能正确识别年份） #

如果你的系统环境能正确把"16dec 21"识别为2021年12月16日，也可以用更简洁的代码：

Sub SimplifiedFormatDate()
    Dim expdt As Date
    Dim dt As String
    dt = Left(Range("A8").Value, 8)
    expdt = CDate(dt) ' 修正：去掉引号，引用变量
    
    ' 格式化为目标格式
    Dim formattedDate As String
    formattedDate = Format(expdt, "ddmmyyyy")
    
    Debug.Print formattedDate
End Sub

两种方法都能得到你需要的16122021格式的日期字符串，直接插入邮件内容即可。

内容的提问来源于stack exchange，提问作者user1234