[ロケールを取得/設定する]

ロケール(言語,国/地域などの情報)を取得/設定します。

【ソースコード】
[tips0052.vbs]
Option Explicit

Dim lngValue    ' 表示する数値
Dim dtmValue    ' 表示する日付

lngValue = 1200
dtmValue = "2005-1-1"

WScript.Echo "現在のロケールは" & GetLocale()
WScript.Echo " 通貨書式は " & FormatCurrency(lngValue)
WScript.Echo " 日付書式は " & FormatDateTime(dtmValue, vbLongDate)

WScript.Echo "ロケールをイタリア語に設定"
SetLocale("it")
WScript.Echo " 通貨書式は " & FormatCurrency(lngValue)
WScript.Echo " 日付書式は " & FormatDateTime(dtmValue, vbLongDate)

【実行結果】
C:\> cscript //NoLogo tips0052.vbs
現在のロケールは1041
 通貨書式は \1,200
 日付書式は 2005年1月1日
ロケールをイタリア語に設定
 通貨書式は L. 1.200
 日付書式は sabato 1 gennaio 2005