date - 从 AUT 获取日期？

Question

我的基于 Web 的应用程序(与大多数应用程序一样)遵循浏览器区域设置来格式化日期。

因此，如果您将英式英语配置为浏览器中的首选语言，应用程序将以“DD/MM/YYYY”格式显示日期。

现在 QTP(好吧，罪魁祸首是 VBScript)不知道这件事。它严格遵循本地计算机的区域设置。

不幸的是，这意味着如果我的本地计算机配置为德语语言环境，并且应用程序是英文的(因为浏览器是这样配置的)，VBScript 的 DateValue 函数将失败(因为它需要“DD.MM.YYYY”格式。

那么将 AUT 显示的日期值转换为 native VBScript 日期以便我可以对其进行日历计算和检查的优雅方法是什么？

除了将当前用户的语言环境切换到与浏览器语言相匹配的语言环境之外，我没有看到一个解决方案可以避免自己为各种语言环境编写解码器/编码器——这看起来像一个巨大的对我来说太过分了。

例如，DateValue 变体让我明确指定要使用的语言环境会很棒。有这种事吗？

一般来说，它不仅与日期有关，而且每个数据项的格式都因地区而异(时间规范、货币金额、 float ......)。

Answer 1

不确定 QTP，但 Windows 脚本宿主通过 SetLocale 处理它

Option Explicit

Dim originalLocale
    originalLocale = GetLocale()

Dim aLocales
    aLocales = Array("en-us", "es-es", "de")

Dim locale, aDates, d

    For Each locale in aLocales
        WScript.Echo locale
        SetLocale locale

        aDates = Array( Date(), DateValue("01/02/2015"))
        For Each d in aDates
            WScript.Echo FormatDateTime(d, 1)
            WScript.Echo FormatDateTime(d, 2)
        Next 
        WScript.Echo "-------------------------------------------------"
    Next

    SetLocale originalLocale