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

VBScript
VBS教程:函数-转换函数
VBS教程:函数-CLng 函数
VBS教程:函数-CInt 函数
VBS教程:函数-Chr 函数
VBS教程:函数-CDbl 函数
VBS教程:函数-CDate 函数
VBS教程:函数-CCur 函数
VBS教程:函数-CByte 函数
VBS教程:函数-CBool 函数
VBS教程:函数-Atn 函数
VBS教程:函数-Asc 函数
VBS教程:函数-Array 函数
VBS教程:函数-Abs 函数
VBS教程:在 VBScript 中使用对象
VBS教程:VBScript 与窗体
VBS教程:VBScript 页面的简单样例
VBS教程:VBScript 基础-VBScript编码约定
VBS教程:VBScript 基础-VBScript 过程
VBS教程:VBScript 基础-使用循环语句
VBS教程:VBScript 基础-使用条件语句

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


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

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> 

请参阅