您好,登錄后才能下訂單哦!
這篇文章給大家介紹如何在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 函數就分享到這里了,希望以上內容可以對大家有一定的幫助,可以學到更多知識。如果覺得文章不錯,可以把它分享出去讓更多的人看到。
免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。