谁能帮我把这些vbs函数翻译成jscript的方法或函数？

31.num.toFixed()
   example : 
   var x = 5.55;
   alert(x.toFixed(10))
32.简单
   function FormatPercent(num)
   {
       return num*100 + "%" ;
   }
33.对不起，只在VB中有效，在VBSCRIPT中没有该函数
34.GetObject([pathname] [, class])
35.如果不在IE中的话，无法实现。不过你的也只能在VB中才能实现~不然没有window对象
36.可以自己计算
37.Date.getHours()
38.没有该方法
39.我没试过，如果真的，实现起来也简单
   function instr(str,chr)
   {
      if(pos=str.indexOf(chr)>0)
      {
          return pos+chr.length-1
      }
      else
          return -1
   }
40.str.lastIndexOf() 如果跟VBSCRIPT有差别的话，可以根据上面的函数重新写一个现在有事，回来再给你解答

解决方案 »

  1.   

    36.
    x = 459
    alert(x.toString(16));
      

  2.   

    33.对不起，只在VB中有效，在VBSCRIPT中没有该函数????
    有的！！
      

  3.   

    果然有哈，我的VBSCRIPT手册上怎么查不到这个东西呀！
      

  4.   

    a=GetLocale ()
    msgbox a
    返回当前区域设置 ID 值 a = 2052代表中国
    实验一下就知道了，你的手册该换了！给你个新的5.6版官方脚本中文参考：
    http://download.microsoft.com/download/winscript56/Install/5.6/W982KMe/CN/scd56chs.exe Visual Basic Scripting Edition   GetLocale 函数
    请参阅
    SetLocale 函数 | 区域设置 ID (LCID) 表
    返回当前区域设置 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 = GetLocaleSub Button1_onclick
      Dim original
      original = SetLocale("en-gb")
      mydate = CDate(UKDate.value)
      ' IE 始终将区域设置设置为“美国英语”，
      ' 所以请使用 currentLocale 变量将区域设置设置为“美国英语”。
      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> 
    请参阅
    SetLocale 函数 | 区域设置 ID (LCID) 表--------------------------------------------------------------------------------&copy; 2001 Microsoft Corporation. 保留所有权利。