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