在没有使用“RATE”命令的情况下在Excel中获得汇率

Question

我对Excel的知识较少，现在我希望您的帮助能够在不使用RATE命令的情况下计算Excel中的感兴趣汇率。 （这样我可以尝试在PHP式转换） 这是我们在Excel中使用的代码

• B5 = 60
• B4 = 16070
• B3 = 750000

• B6 = 1

  = RATE（B5，B4，-B3,0，B6）* 12

它应该给的“10.75结果％“的速度。

如何在不使用'RATE'或任何其他命令的情况下获得相同的结果？

Answer 1

从pgc01's answer：

Function MyRATE(nper As Integer, pmt As Double, pv As Double, Optional fv As Double = 0, _ 
           Optional PaymentEnd As Integer = 0, Optional guess As Double = 0.1) 
    Dim a As Double, b As Double, c As Double ' coefficients of the equation 
    Dim R As Double, RTmp As Double, i As Integer 

    ' Initialize coefficients and R 
    R = 1 + guess 
    a = (pmt * (1 - PaymentEnd) - pv)/(pv + pmt * PaymentEnd) 
    b = (fv - pmt * PaymentEnd)/(pv + pmt * PaymentEnd) 
    c = (-pmt * (1 - PaymentEnd) - fv)/(pv + pmt * PaymentEnd) 

    ' Iterate 
    For i = 1 To 20 
     RTmp = R - (R^(nper + 1) + a * R^nper + b * R + c)/((nper + 1) * R^nper + a * nper * R^(nper - 1) + b) 
     If Abs(RTmp - R) < 0.0000001 Then Exit For 
     R = RTmp 
    Next i 

    If i <= 20 Then 
     MyRATE = RTmp - 1 
    Else 
     MyRATE = "N/A" ' Must try another guess 
    End If 
End Function 

注：

这不是我的代码。我没有通过全面的输入测试它。

EDIT＃1：

这是一个用户定义函数。用户定义函数（UDF）是非常容易安装和使用：

1. ALT-F11带来了VBE窗口
2. ALT-I ALT + M打开一个新的模块
3. 粘贴的东西，关闭VBE窗口

如果保存工作簿，UDF将与其一起保存。 如果您在2003年后使用的是Excel版本，则必须将文件 保存为.xlsm而不是。XLSX

要删除UDF：

1. 弹出VBE窗口如上
2. 清晰的代码进行
3. 关闭VBE窗口

要使用从Excel UDF工作表单元格：

= myrate（B5，B4，-B3,0，B6）* 12

要了解更多关于一般的宏，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

以及有关UDF的细节，请参见：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其工作！