صǰ ID ֵ

GetLocale()
˵
locale ûοϢϣûԡ/Ļͳйءlocale ̲֡ĸ˳ڡʱ䡢Ҹʽ

ֵһ 32-λ ֵ IDʾ

˵ GetLocale ÷Ҫʹøô룬븴Ʊ׼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: &nbsp; <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
' ȡǰ
currentLocale = GetLocale

Sub Button1_onclick
  Dim original
  original = SetLocale("en-gb")
  mydate = CDate(UKDate.value)
  ' IE ʼսΪӢ
  ' ʹ currentLocale ΪӢ
  original = SetLocale(currentLocale)
  USDate.value = FormatDateTime(mydate,vbShortDate)
End Sub

Sub button2_onclick
  Dim original
  original = SetLocale("de")
  myvalue = CCur(GermanNumber.value)
  original = SetLocale("en-gb")
  USNumber.value = FormatCurrency(myvalue)
End Sub

</script> 
