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>