excel - VBA - 将星期几的名称从任何语言更改为英文

Question

我编写了一个 VBA 模块，它采用“dddd”一周中的日期(例如星期一)的名称，将其与一周中的其他日期进行比较并相应地执行代码。我将文件发送给一位 friend ，操作系统默认语言不是英语，并且代码不再检测星期几的名称。我假设日期值不等于英文值。
那么如何更改日期以始终使用英语:

Dim TodayValue As String
TodayValue = format(Date, "dddd")

我看到了其他功能，但我无法在 VBA 上运行它们!任何建议或帮助表示赞赏。

Answer 1

如果我理解得很好，您需要始终以英文获取所提供日期的周名吗？
所以你可以使用这个:

Dim TodayValue As String
TodayValue = Choose(WeekDay(Date),"Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")

WeekDay(Date)检索从星期日开始的天数并使用 Choose返回相关日期名称的程序。