模板
教程
環境
性能
功能
管理
VBScript GetLocale 函數
GetLocale 函數 返回當前區域設置 ID 值。 locale 是用戶參考信息集合，與用戶的語言、國家和文化傳統有關。locale 決定鍵盤布局、字母排序順序和日期、時間、數字與貨幣格式。 返回值可以是任意一個 32-位 的值，如 區域設置 ID所示： 下面舉例說明 GetLocale 函數的用法。要使用該代碼，請復制標準HTML 文件中 <BODY>l 標志之間的所有內容。GetLocale()說明
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: <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>
