[VBA ] 可以幫我看一下以下的問題嗎?
不好意思 小弟剛開始學寫程式
下面這個程式不知道問題在哪 可以有高手幫我看一下嗎?
如果對的話 應該到期日2009/12/5
利率0.1 到期現金流量110
跑出來答案應該是100
結果卻是0....麻煩幫我看一下好嗎 謝謝!
Public Sub discountvalue()
Dim cf, rate As Double
Dim maturity, today As Date
Dim p As Double
maturity = InputBox("請輸入到期日")
today = Date
cf = InputBox("請輸入期末到期現金流量")
rate = Val(InputBox("請輸入利率"))
If (maturity <= (365 + today)) Then
p = simplevalue
Else
p = compvalue
End If
MsgBox p
End Sub
------------------------------------------------------------------------
Public Function simplevalue()
Dim cf As Double, rate As Double, maturity As Date
simplevalue = cf / (1 + rate * (maturity - Date) / 365)
End Function
------------------------------------------------------------------------
Public Function compvalue()
Dim cf As Double, rate As Double, maturity As Double
compvalue = cf / ((1 + rate) ^ ((maturity - Date) / 365))
End Function
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.119.234.107
※ paul420:轉錄至看板 Wanted 12/06 00:01
→
12/06 00:47, , 1F
12/06 00:47, 1F
→
12/06 00:47, , 2F
12/06 00:47, 2F
→
12/06 00:48, , 3F
12/06 00:48, 3F
→
12/06 00:49, , 4F
12/06 00:49, 4F
→
12/06 00:51, , 5F
12/06 00:51, 5F