Access:在Intl (法语) Windows上转换US字符串日期

Question

我的VBA代码是读取一个文本文件的字符串日期，如01-10月-2017年。

在带有法国或比利时设置的Windows上，使用CDate()或DateValue()在大多数日期都是完美的，但对于2月-APR-5月-6月-8月，在那里"févr“、"AVR”、"mai“、"Juin”、"Juil“是可以预期的。

例如，CDate("15-JUN-2017")将返回一个错误。

在我编写一个VBA函数来处理这个问题之前，我想知道是否有什么神奇的函数可以处理这个问题？

Answer 1

我写了以下文章，这似乎对法语很有效。可以修改为涵盖所有12个月，以确保与其他语文工作。

Function cvtUsDt(ByVal sUsDt As String) As Date
'CDate and DateValue do not work well on US text dates like 15-FEB-2017
'on machine with some non english regional settings
'problematic months: FEB-APR-MAY-JUN-JUL-AUG-DEC
    Dim sMon As String
    If sUsDt Like "*FEB*" Then
        sMon = Format(DateSerial(2017, 2, 10), "mmm")
        sUsDt = Replace(sUsDt, "FEB", sMon)

    ElseIf sUsDt Like "*APR*" Then
        sMon = Format(DateSerial(2017, 4, 10), "mmm")
        sUsDt = Replace(sUsDt, "APR", sMon)

    ElseIf sUsDt Like "*MAY*" Then
        sMon = Format(DateSerial(2017, 5, 10), "mmm")
        sUsDt = Replace(sUsDt, "MAY", sMon)

    ElseIf sUsDt Like "*JUN*" Then
        sMon = Format(DateSerial(2017, 6, 10), "mmm")
        sUsDt = Replace(sUsDt, "JUN", sMon)

    ElseIf sUsDt Like "*JUL*" Then
        sMon = Format(DateSerial(2017, 7, 10), "mmm")
        sUsDt = Replace(sUsDt, "JUL", sMon)

    ElseIf sUsDt Like "*AUG*" Then
        sMon = Format(DateSerial(2017, 8, 10), "mmm")
        sUsDt = Replace(sUsDt, "AUG", sMon)

    ElseIf sUsDt Like "*DEC*" Then
        sMon = Format(DateSerial(2017, 12, 10), "mmm")
        sUsDt = Replace(sUsDt, "DEC", sMon)
    End If

    'in case of error, return 1/1/1900
    cvtUsDt = 0
    On Error Resume Next

    cvtUsDt = CDate(sUsDt)
End Function