Visual Basic Scripting Edition | 語言參考 |
Sets the global locale and returns the previous locale.
SetLocale(lcid)
lcid 參數(shù)可以是任意一個(gè)合法的 32 位數(shù)值或短字符串,該值必須唯一標(biāo)識一個(gè)地理區(qū)域。能被識別的值可以查閱 區(qū)域設(shè)置 ID 表。
若 lcid 為零,區(qū)域被設(shè)置為與當(dāng)前系統(tǒng)設(shè)置匹配。
一個(gè) locale 是用戶參考信息集合,與用戶的語言、國家和文化傳統(tǒng)有關(guān)。該 locale 決定鍵盤布局、字母排序順序和日期、時(shí)間、數(shù)字與貨幣格式。
下面舉例說明 SetLocale 函數(shù)的用法。要使用該代碼,請復(fù)制標(biāo)準(zhǔn)HTML 文件中 <BODY> 標(biāo)志之間的所有內(nèi)容。
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 = GetLocale
Sub 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 Sub
Sub button2_onclick
Dim original
original = SetLocale("de")
myvalue = CCur(GermanNumber.value)
original = SetLocale("en-gb")
USNumber.value = FormatCurrency(myvalue)
End Sub
</script>
GetLocale 函數(shù) | 區(qū)域設(shè)置 ID (LCID) 表