Вызов экселевской функции ВСД (IRR)

• Вызов экселевской функции ВСД (IRR) ( Ulan  24.01.2011 07:06 )
  Оценка:5(1)

  Добрый день.
  Как можно вызвать данную функцию в РСЛЬ?
  
  Например в VBA делаем так:
  

  Dim Arr(107) As Double, Perc As Double
  Perc = -0.1
  ... заполняем массив Arr
  Range("G4").Value = IRR(Arr(), Perc)
  

  
  Нашел как вызывать функции VBA в РСЛЬ (например для ABS):
  

  macro TestVal(pVal)
    var obj;
    if(IsStandAlone())
      obj=ActiveX("MSScriptControl.ScriptControl");
    else
      obj=TlgActiveX("MSScriptControl.ScriptControl", true);
    end;
    obj.language  =  "VBscript";
    var lStr = "Abs(" + pVal + ")";
    return obj.Eval(lStr);
  end;
  

  
  Но при такой конструкции у меня возникает проблема с передачей массива как параметра. Кто знает как можно вызвать функцию IRR из РСЛЬ?
  >> Ответить