GetLocale 函數(shù)返回當(dāng)前區(qū)域設(shè)置 ID 值。 GetLocale()
說(shuō)明locale 是用戶參考信息集合,與用戶的語(yǔ)言、國(guó)家和文化傳統(tǒng)有關(guān)。locale 決定鍵盤(pán)布局、字母排序順序和日期、時(shí)間、數(shù)字與貨幣格式。 返回值可以是任意一個(gè) 32-位 的值,如 區(qū)域設(shè)置 ID所示: 下面舉例說(shuō)明 GetLocale 函數(shù)的用法。要使用該代碼,請(qǐng)復(fù)制標(biāo)準(zhǔn)HTML 文件中 <BODY>l 標(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 =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>
請(qǐng)參閱SetLocale 函數(shù) | 區(qū)域設(shè)置 ID (LCID) 表
返回首頁(yè)
|