VBA – 更改date语言

我试图解决这样的问题：在macros观上，我正在使用，其中一个部分是检索date月份（完整命名），目前使用：

LastMonth = Format(DateSerial(Year(Date), Month(Date) - 1, 1), "mmmm") 

但是出现了一个问题 – 对于使用不同地区语言设置的人来说，date显示为当地语言，但我需要用英语为每个人提供date。

我正在环顾networking，但还没有find任何类似的解决scheme。 有谁知道，这怎么解决？

Answer 1

Excel公式TEXT允许定义输出语言，因此其中一个选项是使用它的VBA等效项：

 LastMonth = WorksheetFunction.Text(Date - Day(Date), "[$-409]mmmm") 

Answer 2

试试这个，在论坛上find它似乎工作。

 Public Function Format_en(Datum As Date) As String Dim DD As String Dim MMM As String Dim YY As String DD = Format(Datum, "dd") MMM = Choose(Month(Datum), "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") YY = Format(Datum, "yy") Format_en = DD & "." & MMM & " " & YY End Function MsgBox Format_en(Date) 

参考： http : //www.office-loesung.de/ftopic99887_0_0_asc.php

干杯