VBA相当于VBScript的“SetLocale”function?

总结一下我的问题,我现在和这个问题的人有一样的问题。 我试图parsing一个美国的date到德国默认的Excel表格,并给我一个types不匹配的大部分date,因为它。

SetLocale听起来像是我的问题的完美解决scheme,但经过一分钟的进一步研究,我发现GetLocaleSetLocale在VBA中显然不受支持。

当我将parsingdate分配给一个Stringvariables时, 这种工作方式起作用(根据是否有types不匹配,我最终得到一个使用MM/DD/YYYYDD/MMM/YYYY格式的列,只要我使用On Error Resume ),但我需要他们在一个MM/DD/YYYYdatetypes/格式为了比较所有parsing的date与另一个单元格中的特定date(尝试确定该网站自date以来是否有任何更新input特定单元格)。

我也尝试过TimeStamp = Format(TimeStamp, "MM/DD/YYYY") (TimeStamp是一个包含parsingdate的variables),但似乎没有工作 – 很可能是由于types不匹配错误。

如果有人知道在链接问题中使用的SetLocale函数的VBA等同于我尝试,我将不胜感激。 如果没有,我会很乐意修改我的问题,并在这里添加我现在的代码来试图找出一个解决scheme。

感谢您的时间和你的帮助。

如果你知道他们都是美国的格式,你可以使用这样的function:

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