从 oracle 表单调用 excel 函数

Question

任何人都可以建议我如何使用 ole2 从 oracle 表单执行 excel 函数（例如 PMT()）并返回结果？

Answer 1

我创建了 PL/SQL 函数，它将根据 MS Excel 中的公式计算 PMT 函数。

第一个函数不考虑未来值，第二个函数则考虑未来值。

/* No future value factor */
FUNCTION pmt (APR     IN NUMBER /* Rate (APR) */,
                  pv      IN NUMBER /* Loan amount */,
                  nper    IN NUMBER /* number of payments */
                  ) RETURN NUMBER IS /* periodic payment amount */
BEGIN
    RETURN  (APR / (1 - power((1 + APR),-nper)) * pv );

END pmt;    

/* With future value factor */
FUNCTION pmt (APR    IN NUMBER, /* Rate (APR) */
              nper   IN NUMBER, /* Number of payments */
              pv     IN NUMBER, /* present value */
              fv     IN NUMBER  /*future value */
             ) RETURN NUMBER IS /* periodic payment amount */

  calcpmt NUMBER := 0;
  powercalc NUMBER:=0;
BEGIN

 powercalc:= POWER(1+APR, nper);
 RETURN APR / (powercalc - 1) * -(pv * powercalc + fv);

END;

Answer 2

我只需在 PL/SQL（表单的本机语言）中重新创建 PMT 函数。例如基于 http:// forums.contractoruk.com/technical/28716-calculate-apr-loan-re payment-using-pl-sql-java.html：

CREATE
FUNCTION pmt (rate     IN NUMBER /* Rate (APR) */
             ,amt      IN NUMBER /* Loan amount */
             ,payments IN NUMBER /* number of payments */
             ) RETURN NUMBER IS /* periodic payment amount */
BEGIN
  RETURN (rate/12*amt*power((1+rate/12),payments))/(power((1+rate/12),payments)-1);
END pmt;

例如

BEGIN
  DBMS_OUTPUT.put_line(
   'PMT = 
 || TRUNC( pmt(0.249, 5000, 11), 2)
  );
END;
/

PMT = $513.07