如何在VBA中获取德语的月份？

Question

我需要我的代码创建一个文件夹，命名为德国月份：不是05年3月，而是05年3月。

Dim strMonth  As String
 strMonth =  Format(Date, "mm")
 ' Check for month folder and create if needed
If Len(Dir("C:\Users\Luca\Desktop\TestDaty\" & client & "\" & Year(Date) & "\" & strMonth & " " & MonthName(Month(Date), False), vbDirectory)) = 0 Then
    MkDir "C:\Users\Luca\Desktop\TestDaty\" & client & "\" & Year(Date) & "\" & strMonth & " " & MonthName(Month(Date), False)
End If

所以也许有些国家代码在这里?月名(月(日期)请帮助我!!! :)

Answer 1

如果你的locale被设置为德语，我猜想类似这样的情况 Format(Date, "mmmm") 就可以了(对我来说是有效的)。否则，如果您只需要创建以德语命名的文件夹，您可以使用语言代码（LCID）与 WorksheetFunction.Text():

WorksheetFunction.Text(Date, "[$-407]mmmm")

哪儿 [$-407] 是 语言代码 返回一个德国月名!