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