Question

这里列出的是 @OSLang 可能获得的所有值（或字符串）

此表的数据从此页面获得： Windows 2000 - List of Locale IDs and Language Groups

注意：代码中如有字母则这些字母可能是大写的。

代码	语言
0436	南非荷兰语
041c	阿尔巴尼亚语
0401	阿拉伯语（沙特阿拉伯）
0801	阿拉伯语（伊拉克）
0c01	阿拉伯语（埃及）
1001	阿拉伯语（利比亚）
1401	阿拉伯语（阿尔及利亚）
1801	阿拉伯语（摩洛哥）
1c01	阿拉伯语（突尼斯）
2001	阿拉伯语（阿曼）
2401	阿拉伯语（也门）
2801	阿拉伯语（叙利亚）
2c01	阿拉伯语（约旦）
3001	阿拉伯语（黎巴嫩）
3401	阿拉伯语（科威特）
3801	阿拉伯语（阿拉伯联合酋长国）
3c01	阿拉伯语（巴林）
4001	阿拉伯语（卡塔尔）
042b	亚美尼亚语
042c	阿泽里语（拉丁）
082c	阿泽里语（斯拉夫）
042d	巴斯克语
0423	白俄罗斯
0402	保加利亚语
0403	加泰罗尼亚语
0404	中文（台湾）
0804	中文（中国）
0c04	中文（香港特别行政区）
1004	中文（新加坡）
1404	中文（澳门特别行政区）
041a	克罗地亚人语
0405	捷克语
0406	丹麦语
0413	荷兰语（标准）
0813	荷兰语（比利时）
0409	英语（美国）
0809	英语（英国）
0c09	英语（澳大利亚）
1009	英语（加拿大）
1409	英语（新西兰）
1809	英语（爱尔兰）
1c09	英语（南非）
2009	英语（牙买加）
2409	英语（加勒比）
2809	英语（伯利兹）
2c09	英语（特立尼达）
3009	英语（津巴布韦）
3409	英语（菲律宾）
0425	爱沙尼亚语
0438	法罗语
0429	波斯语
040b	芬兰语
040c	法语（标准）
080c	法语（比利时）
0c0c	法语（加拿大）
100c	法语（瑞士）
140c	法语（卢森堡）
180c	法语（摩纳哥）
0437	格鲁吉亚语
0407	德语（标准）
0807	德语（瑞士）
0c07	德语（奥地利）
1007	德语（卢森堡）
1407	德语（列支敦士登）
408	希腊语
040d	希伯来语
0439	印第语
040e	匈牙利语
040f	冰岛语
0421	印度尼西亚语
0410	意大利语（标准）
0810	意大利语（瑞士）
0411	日语
043f	哈撒克语
0457	刚卡尼语
0412	朝鲜语/韩语
0426	拉脱维亚语
0427	立陶宛语
042f	马其顿语
043e	马来语（马来西亚）
083e	马来人（文莱达鲁萨兰）
044e	马拉地语
0414	挪威语（伯克梅尔）
0814	挪威语（尼诺斯克）
0415	波兰语
0416	葡萄牙语（巴西）
0816	葡萄牙语（标准）
0418	罗马尼亚语
0419	俄语
044f	梵语
081a	塞尔维亚语（拉丁）
0c1a	塞尔维亚语（西里尔文）
041b	斯洛伐克语
0424	斯洛文尼亚语
040a	西班牙语（传统）
080a	西班牙语（墨西哥）
0c0a	西班牙语（国际）
100a	西班牙语（危地马拉）
140a	西班牙语（哥斯达黎加）
180a	西班牙语（巴拿马）
1c0a	西班牙语（多米尼加共和国）
200a	西班牙语（委内瑞拉）
240a	西班牙语（哥伦比亚）
280a	西班牙语（秘鲁）
2c0a	西班牙语（阿根廷）
300a	西班牙语（厄瓜多尔）
340a	西班牙语（智利）
380a	西班牙语（乌拉圭）
3c0a	西班牙语（巴拉圭）
400a	西班牙语（玻利维亚）
440a	西班牙语（萨尔瓦多）
480a	西班牙语（洪都拉斯）
4c0a	西班牙语（尼加拉瓜）
500a	西班牙语（波多黎各）
0441	斯瓦西里语
041d	瑞典语
081d	瑞典语（芬兰）
0449	泰米尔语
0444	塔塔尔语
041e	泰语
041f	土耳其语
0422	乌克兰语
0420	乌尔都语
0443	乌兹别克语（拉丁文）
0843	乌兹别克语（西里尔文）
042a	越南语

示例

MsgBox(0, "Your OS Language:", _Language())

Func _Language()
Select
Case StringInStr("0413,0813", @OSLang)
Return "Dutch"

Case StringInStr("0409,0809,0c09,1009,1409,1809,1c09,2009,_
2409,2809,2c09,3009,3409", @OSLang)
Return "English"

Case StringInStr("040c,080c,0c0c,100c,140c,180c", @OSLang)
Return "French"

Case StringInStr("0407,0807,0c07,1007,1407", @OSLang)
Return "German"

Case StringInStr("0410,0810", @OSLang)
Return "Italian"

Case StringInStr("0414,0814", @OSLang)
Return "Norwegian"

Case StringInStr("0415", @OSLang)
Return "Polish"

Case StringInStr("0416,0816", @OSLang)
Return "Portuguese"

Case StringInStr("040a,080a,0c0a,100a,140a,180a,1c0a,200a,_
240a,280a,2c0a,300a,340a,380a,3c0a,400a,_
440a,480a,4c0a,500a", @OSLang)
Return "Spanish"

Case StringInStr("041d,081d", @OSLang)
Return "Swedish"

Case Else
Return "Other (can determine with @OSLang directly"

EndSelect
EndFunc