VBA是否等效于VBScript的“ SetLocale”功能？

Question

总结一下我的问题，我现在正和这里遇到这个问题的人完全一样。 我正在尝试将美国日期解析为默认为德语的Excel工作表，并因此而在大多数日期上给我提供类型不匹配的信息。

SetLocale听起来是解决我的问题的完美解决方案，但是经过一分钟的深入研究，我发现VBA显然不支持GetLocale和SetLocale 。

当我将解析的日期分配给String变量时， 这种方法就可以工作了（我最终会使用MM/DD/YYYY或DD/MMM/YYYY格式生成一列，具体取决于我是否有类型不匹配的情况，只要我使用On Error Resume ），但是我需要它们采用MM/DD/YYYY日期类型/格式，以便将所有解析的日期与另一个单元格中的特定日期进行比较（试图确定该网站自该日期以来是否有任何更新在特定单元格中输入）。

我也尝试过执行TimeStamp = Format(TimeStamp, "MM/DD/YYYY") （TimeStamp是包含解析日期的变量），但它似乎不起作用-可能是由于类型不匹配错误。

如果有人知道在链接的问题中使用的等效于SetLocale函数的VBA让我尝试一下，我将不胜感激。 如果没有，我将很乐意修改我的问题，并在此处添加我当前的代码，以尝试共同提出解决方案。

感谢您的时间和帮助。

Answer 1

如果您知道它们都是美国格式的，则可以使用如下函数：

Function ConvertUSDate(sDate) As Date
    ConvertUSDate = Evaluate("DATEVALUE(""" & sDate & """)")
End Function