VBScript GetLocale 函数

GetLocale 函数

返回当前区域设置 ID 值。

GetLocale()

说明

locale 是用户参考信息集合，与用户的语言、国家和文化传统有关。locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。

返回值可以是任意一个 32-位 的值，如 区域设置 ID所示：

下面举例说明 GetLocale 函数的用法。要使用该代码，请复制标准HTML 文件中 <BODY&gtl 标志之间的所有内容。

Enter Date in UK format: <input type="text" id="UKDate" size="20"><p>

Here's the US equivalent: <input type="text" id="USdate" size="20"><p>

<input type="button" value="Convert" id="button1"><p>

Enter a price in German: &nbsp; <input type="text" id="GermanNumber" size="20">

<p>

Here's the UK equivalent: <input type="text" id="USNumber" size="20"><p>

<input type="button" value="Convert" id="button2"><p><script language="vbscript">

Dim currentLocale

' Get the current locale

currentLocale = GetLocaleSub Button1_onclick

  Dim original

  original = SetLocale("en-gb")

  mydate = CDate(UKDate.value)

  ' IE always sets the locale to US English so use the

  ' currentLocale variable to set the locale to US English

  original = SetLocale(currentLocale)

  USDate.value = FormatDateTime(mydate,vbShortDate)

End SubSub button2_onclick

  Dim original

  original = SetLocale("de")

  myvalue = CCur(GermanNumber.value)

  original = SetLocale("en-gb")

  USNumber.value = FormatCurrency(myvalue)

End Sub</script> 

 

如果您有什么疑问,可以至论坛提出或者解答他人的疑问   返回页面顶部