这篇文章给大家介绍如何在VBS中使用SetLocale 函数，内容非常详细，感兴趣的小伙伴们可以参考借鉴，希望对大家能有所帮助。

站在用户的角度思考问题，与客户深入沟通，找到天峻网站设计与天峻网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、成都网站设计、企业官网、英文网站、手机端网站、网站推广、申请域名、网络空间、企业邮箱。业务覆盖天峻地区。

SetLocale 函数

Sets the global locale and returns the previous locale.

SetLocale(lcid)

lcid 参数可以是任意一个合法的 32 位数值或短字符串，该值必须标识一个地理区域。能被识别的值可以查阅 区域设置 ID 表。

说明

若lcid 为零，区域被设置为与当前系统设置匹配。

一个 locale 是用户参考信息集合，与用户的语言、国家和文化传统有关。该 locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。

下面举例说明SetLocale 函数的用法。要使用该代码，请复制标准HTML 文件中 标志之间的所有内容。

Enter Date in UK format: 
Here's the US equivalent: 
Enter a price in German:   
Here's the UK equivalent: 
Dim currentLocale' Get the current localecurrentLocale = GetLocaleSub Button1_onclick  Dim original  original = SetLocale("en-gb")  mydate = CDate(UKDate.value)  ' IE always sets the locale to US English so use the  ' currentLocale variable to set the locale to US English  original = SetLocale(currentLocale)  USDate.value = FormatDateTime(mydate,vbShortDate)End SubSub button2_onclick  Dim original  original = SetLocale("de")  myvalue = CCur(GermanNumber.value)  original = SetLocale("en-gb")  USNumber.value = FormatCurrency(myvalue)End Sub

关于如何在VBS中使用SetLocale 函数就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。

文章名称：如何在VBS中使用SetLocale函数-创新互联
网址分享：http://6mz.cn/article/dpgpog.html