VBS教程:函数-GetLocale 函数
2006-11-16 00:00
302 查看
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>
相关文章推荐
- VBS教程:函数-GetRef 函数
- VBS教程:函数-Weekday 函数
- 一些WinAPI 处理 字符的函数和连接(GetACP和SetThreadLocale最重要,还有SetConsoleCP)
- VBS教程:函数-Hex 函数
- python学习之getdefaultlocale()函数
- VBS教程:函数-InStr 函数
- VBS教程:函数-IsNumeric 函数
- VBS教程:函数-DateValue 函数
- VBS教程:函数-ScriptEngineMinorVersion 函数
- VBS教程:函数-Array 函数
- VBS教程:函数-Cos 函数
- VBS教程:函数-Join 函数
- VBS教程:方法-GetExtensionName 方法
- VBS教程:函数-IsEmpty 函数
- VBS教程:函数-CDate 函数
- VBS教程:函数-IsObject 函数
- VBS教程:函数-Exp 函数
- VBS教程:函数-TimeValue
- VBS教程:函数-IsNull 函数
- VBS教程:函数-Int、Fix 函数