有的时候,我们想获取月份和星期的中文名称,英文名称或者日文名称,我们可以通过VBS提供的
SetLocale函数加上月份名称(mothname)和星期名称(weekdayname)获取函数实现.
SetLocale
功能:设置全球区域设置,并返回以前的区域设置
一个 locale 是用户参考信息集合,与用户的
语言、国家/地区和文化传统有关。该 locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式
简言之,就是可以设置一些函数返回值的语言格式
用法: SetLocale(lcid)
参数说明:lcid为区域设置ID,可以是区域的简称或者区域的十进制代码,比如 中文-中华人民共和国 的区域ID简写为"zh-cn",十进制ID代码为"2052";英语-美国 的区域ID简写为"en-us",十进制ID代码为"1033";日语 的区域ID简写为"ja",十进制ID代码为"1041"
我们可以通过GetLocale函数获取当前系统的区域的十进制id代码
'************************************************
'获取月份的中文,英文,日语名称
'************************************************
Dim cn_month(12), us_month(12),ja_month(12)
'设置区域为"中文-中华人民共和国"
SetLocale "zh-cn"
'获取月份名称
For i = 1 To 12
cn_month(i) = MonthName(i)
Next
'设置区域为"英文-美国"
SetLocale "en-us"
For i = 1 To 12
us_month(i) = MonthName(i)
Next
'设置区域为"日语"
SetLocale "ja"
For i = 1 To 12
ja_month(i) = MonthName(i)
Next
For i = 1 To 12
WScript.Echo cn_month(i), ja_month(i),us_month(i)
Next
'************************************************
'获取星期的中文,英文,日语名称
'************************************************
Dim cn_week(7), us_week(7),ja_week(7)
'设置区域为"中文-中华人民共和国"
SetLocale "2052"
'获取星期名称
For i = 1 To 7
cn_week(i) = WeekdayName(i)
Next
'设置区域为"英文-美国"
SetLocale "1033"
For i = 1 To 7
us_week(i) = WeekdayName(i)
Next
'设置区域为"日语"
SetLocale "1041"
For i = 1 To 7
ja_week(i) = WeekdayName(i)
Next
For i = 1 To 7
WScript.Echo cn_week(i), ja_week(i),us_week(i)
Next