SetLocale 函数

[code]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 = [b]SetLocale([/b]"en-gb"[b])[/b]  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 = [b]SetLocale([/b]currentLocale[b])[/b]  USDate.value = FormatDateTime(mydate,vbShortDate)End SubSub button2_onclick  Dim original  original = [b]SetLocale([/b]"de"[b])[/b]  myvalue = CCur(GermanNumber.value)  original = [b]SetLocale([/b]"en-gb"[b])[/b]  USNumber.value = FormatCurrency(myvalue)End Sub</script> [/code]