GetLocale 関数
機能
現在のロケール ID の値を返します。
GetLocale()
解説
ロケールには、言語、国/地域、および文化的な慣習に関連するユーザーごとの各種設定が含まれています。キーボード レイアウト、文字の並び順、および日付、時間、数字、通貨の書式などは、このロケールによって決まります。
戻り値は、ロケール ID の一覧に含まれる 32 ビット値です。
次のコードは、GetLocale 関数の使用例です。このコードを使用するには、コード例全体をコピーしてから、標準的な HTML ページの <BODY> タグと </BODY> タグの間にコードを貼り付けてください。
英語 (U.K.) の書式で日付を入力してください: <input type="text" id="UKDate" size="20"><p>
対応する英語 (U.S.) の日付: <input type="text" id="USdate" size="20"><p>
<input type="button" value="Convert" id="button1"><p>
ドイツ語の書式で、通貨の値を入力してください: <input type="text" id="GermanNumber" size="20">
<p>
対応する英語 (U.K.) の通貨: <input type="text" id="USNumber" size="20"><p>
<input type="button" value="Convert" id="button2"><p>
<script language="vbscript">
Dim currentLocale
' 現在のロケールを取得します。
currentLocale = GetLocale
Sub Button1_onclick
Dim original
original = SetLocale("en-gb")
mydate = CDate(UKDate.value)
' IE では、通常、ロケールは英語 (U.S.) に設定されているので、
' 変数 currentLocale を使用してロケールを英語 (U.S.) に設定します。
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>