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

ロケール（言語，国/地域などの情報）を取得／設定します。

【ソースコード】

[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