技術情報
GetLocale
ロケールIDを返します。

定義
GetLocale
引数なし

説明
現在のロケールIDを返します。

'現在のロケールIDを取得します
'日本語環境なら 1041 が返されます
Dim a
a = GetLocale