vba - 使用 vba 将 ddmmmyyyy 转换为数字

Question

我有一个包含一些信息的单元格，其中包含一个 ddmmmyy 格式的日期(类似于“16dec 21 hello”)。
我需要生成一封电子邮件，其中在电子邮件的某些部分包含日期，但以数字形式(即 16122021，所以 ddmmyyyy)。
我尝试首先使用 left() 函数提取日期，然后尝试通过 .numbertype = "ddmmyyyy"和 cdate 函数将其转换为数据，但它似乎不起作用。下面是我的代码:

'Getting date
Dim expdt As Date
Dim dt As String
dt = Left(Range("A8").Value, 8)
expdt = CDate("dt")

[打印 00:00:00]

Answer 1

尝试，

Dim expdt As Date
Dim dt As String

'your sample had a space between Dec and 21
dt = Left(Range("A8").Value2, 2) & "-" & mid(replace(Range("A8").Value2, chr(32), chr(45)), 3, 6)
expdt = datevalue(dt)
debug.print expdt