VBA将带有日期和月份名称的字符串转换为日期

Question

我有一个string 和一个date 的法语长格式，如下所示：

mardi 7 juillet 2020

如何将其转换为 VBA 中的日期类型？我尝试使用CDate、DateValue 和DateSerial，但我无法弄清楚。如果 VBA 的日期格式为 Long Date，那么一定有办法。我只是找不到任何人用这种格式提出这个转换问题。

请注意，我有很多日期，因为我要循环处理许多邮件，所以我需要一个非常通用的解决方案，所以一个考虑到所有可能的工作日（lundi、mardi、...、dimanche）的解决方案，所有可能的日子 1 到 31 和月 Janvier 到 12 月以及所有可能的年份。

感谢您的帮助。

Answer 1

我同意应该有一个更容易的转换。此函数将去掉工作日（这是多余的），然后依靠 VBA 类型转换来获取日期类型（注意。我只在英语（英国）区域设置下测试过这个）。

Option Explicit
Public Function DateFromLongFormat(strLongFormatDate As String) As Date
    Dim strDate As String
    strDate = Right(strLongFormatDate, Len(strLongFormatDate) - InStr(1, strLongFormatDate, " "))

    DateFromLongFormat = strDate
End Function

在今天使用一个简单的测试例程进行了尝试：

Sub TestDate()
    Dim strToday As String
    strToday = Format(Now(), "dddd dd mmmm yyyy")

    Dim dt As Date
    dt = DateFromLongFormat(strToday)
End Sub