Funtion Bond(y, face, couponRate, m)
i = 1
disct = 0
Do While i <= m
disct1 = (1 + y) ^ (-i)
disct = disct + disct1
Loop
disctm = (1 + y) ^ (-m)
Bond = (disct * couponRate + disctm) * face
End Function
Sub bondTester()
y = 0.03
face = 2000000
couponRate = 0.04
m = 10
MsgBox (Bond(y, face, couponRate, m))
End Sub
跑代碼時顯示 invalid outside procedure.
uj5u.com熱心網友回復：
是Function，而不是Funtionuj5u.com熱心網友回復：
Function Bond(y, face, couponRate, m)
i = 1
disct = 0
Do While i <= m
disct1 = (1 + y) ^ (-i)
disct = disct + disct1
Loop
disctm = (1 + y) ^ (-m)
Bond = (disct * couponRate + disctm) * face
End Function
Sub bondTester()
y = 0.03
face = 2000000
couponRate = 0.04
m = 10
MsgBox (Bond(y, face, couponRate, m))
End Sub
uj5u.com熱心網友回復：
謝謝！我試一下！轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/38203.html
標籤：VBA