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

VBScript
VBS教程:函数-LoadPicture 函数
VBS教程:函数-Len 函数
VBS教程:函数-Left 函数
VBS教程:函数-LCase 函数
VBS教程:函数-LBound 函数
VBS教程:函数-Join 函数
VBS教程:函数-IsObject 函数
VBS教程:函数-IsNumeric 函数
VBS教程:函数-IsNull 函数
VBS教程:函数-IsEmpty 函数
VBS教程:函数-IsDate 函数
VBS教程:函数-IsArray 函数
VBS教程:函数-Int、Fix 函数
VBS教程:函数-InStrRev 函数
VBS教程:函数-InStr 函数
VBS教程:函数-InputBox 函数
VBS教程:函数-Hour 函数
VBS教程:函数-Hex 函数
VBS教程:函数-GetRef 函数
VBS教程:函数-GetObject 函数

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 250 ::
收藏到网摘: 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> 

请参阅