Visual Basic Scripting Edition | 語言參考 |
SetLocale 函數Sets the global locale and returns the previous locale. SetLocale(lcid)
lcid 參數可以是任意一個合法的 32 位數值或短字符串,該值必須唯一標識一個地理區(qū)域。能被識別的值可以查閱 區(qū)域設置 ID 表。 說明若 lcid 為零,區(qū)域被設置為與當前系統(tǒng)設置匹配。 一個 locale 是用戶參考信息集合,與用戶的語言、國家和文化傳統(tǒng)有關。該 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 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>
請參閱GetLocale 函數 | 區(qū)域設置 ID (LCID) 表
返回首頁 |