当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS教程:函数-GetLocale 函数

VBScript
tel.xls.vbs xls专杀工具
病毒专杀VBS模块
用vbs实现的一款Worm.Win32.VB.fw病毒专杀
VBScript提交表单提示-对象不支持此属性或方法
Windows Script Host之用vbs实现[浏览文件夹]功能
定时自动备份IIS的WWW日志的vbs脚本
可以将Bat转换位VBS文件的VBS脚本
用vbs实现cmd功能
VBS编程教程 (第1篇)
VBS编程教程 (第2篇)
VBS编程教程 (第3篇)
VBS编程教程 (第4篇)
VBS编程教程 (第5篇)
VBS编程教程 (第6篇)
用VBS可执行程序+Xmlhttp下载备份网上文件的代码
注册表-批处理-VBS之间的相互结合应用
用vbs实现显示系统调色板的代码
用vbs遍历文件并随机显示的脚本
用vbs实现随机读取文件的一行内容的脚本
用vbs实现读取文本文件的方法

VBScript 中的 VBS教程:函数-GetLocale 函数


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 95 ::
收藏到网摘: n/a

GetLocale 函数

返回当前区域设置 ID 值。

GetLocale()

说明

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

返回值可以是任意一个 32-位 的值,如 区域设置 ID所示:

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

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>