将字符串转换为其他语言的日期

Question

我有一个excel文件，我需要将字符串转换为日期。这个字符串用荷兰语写成，所以“15 juli 2018”，而不是“2018年7月15日”。我的擅长英语。我知道Excel内置了许多日期格式，但它不能将荷兰语字符串识别为日期。所以我的问题是原始字符串使用不同的语言。我不能只改变系统的语言设置，因为我的代码也可以在其他系统上运行。

我很想听到任何想法。

Answer 1

使用 E1 中的字符串数据，在 F1 中输入：

=DATEVALUE(LEFT(E1,FIND(" ",E1)) & VLOOKUP(MID(E1,FIND(" ",E1)+1,FIND(" ",E1,FIND(" ",E1)+1)-(FIND(" ",E1)+1)),I:J,2) & " " & RIGHT(E1,4))

这使用cols I 和 J

中的小型荷兰语 - 英语翻译表

Answer 2

这个快速子将在适当的位置完成。选择日期并运行代码：

Sub dutchtoeng()
Dim mArr()
mArr = Array("januari", "january", "februari", "february", "maart", "march", "april", "april", "mei", "may", "juni", "june", "juli", "july", "augustus", "august", "september", "september", "oktober", "october", "november", "november", "december", "december")
Dim i As Long
For i = LBound(mArr) To UBound(mArr) Step 2
    Selection.Replace mArr(i), mArr(i + 1)
Next i

End Sub