在运行行代码之前测试Excel“日期系统”

Question

我来自巴西，此处的日期表示为dd / mm / yyyy。那么，我应该使用哪个VBA命令，以便可以保证以下MsgBox将返回“ 01”而不是“ 02”？

MyDate ="02/01/2001"
MsgBox Month(MyDate) 'I want 01 as month

我正在寻找这样的东西：

If Excel.DateFormat = "dd/mm/yyyy" then MyMonth = Month(MyDate)

有可能吗？什么VBA命令可以保证excel读取“ 02/01/2001”为“ dd / mm / yyyy”而不是“ mm / dd / yyyy”？

Answer 1

If Application.International(xlDateOrder) = 0 Then ...

xlDateOrder具有以下选择：

0 = month-day-year
1 = day-month-year
2 = year-month-day

更多信息在这里： Application.International