SetLocale 函數
Sets the global locale and returns the previous locale.
SetLocale(lcid)
lcid 參數可以是任意一個合法的 32 位元值或短字串,該值必須唯一標識一個地理地區。能被識別的值可以查閱 地區設定識別碼 表。
說明
若 lcid 為零,地區被設定為與當前系統設定匹配。
一個 locale 是使用者參考資訊集合,與使用者的語言、國家和文化傳統有關。該 locale 決定鍵盤配置、字母排序次序和日期、時間、數字與貨幣格式。
下面舉例說明 SetLocale 函數的用法。要使用該代碼,請複製標準HTML 檔案中 <BODY> 標誌之間的所有內容。
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 localecurrentLocale = GetLocaleSub Button1_nclick 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_nclick Dim original original = SetLocale("de") myvalue = CCur(GermanNumber.value) original = SetLocale("en-gb") USNumber.value = FormatCurrency(myvalue)End Sub</script>
請參閱