这篇文章给大家介绍如何在VBS中使用SetLocale 函数,内容非常详细,感兴趣的小伙伴们可以参考借鉴,希望对大家能有所帮助。
Sets the global locale and returns the previous locale.
SetLocale(lcid)
lcid 参数可以是任意一个合法的 32 位数值或短字符串,该值必须标识一个地理区域。能被识别的值可以查阅 区域设置 ID 表。
若lcid 为零,区域被设置为与当前系统设置匹配。
一个 locale 是用户参考信息集合,与用户的语言、国家和文化传统有关。该 locale 决定键盘布局、字母排序顺序和日期、时间、数字与货币格式。
下面举例说明SetLocale 函数的用法。要使用该代码,请复制标准HTML 文件中 <BODY> 标志之间的所有内容。
Enter Date in UK format: <input type="text" id="UKDate" size="20"><p>Here's the US equivalent: <input type="text" id="USdate" size="20"><p><input type="button" value="Convert" id="button1"><p>Enter a price in German: <input type="text" id="GermanNumber" size="20"><p>Here's the UK equivalent: <input type="text" id="USNumber" size="20"><p><input type="button" value="Convert" id="button2"><p><script language="vbscript">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</script>
关于如何在VBS中使用SetLocale 函数就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。
名称栏目:如何在VBS中使用SetLocale函数-创新互联
文章路径:https://www.cdcxhl.com/article6/dpgpog.html
成都网站建设公司_创新互联,为您提供网站设计、服务器托管、网站改版、域名注册、云服务器、网站内链
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联