金ㄧ丙錢琦維程式設計

錢琦維2021年1月期末考 現值 利率 期數 金流 終值

  利率 1.2%( 月利率 0.001) ，房貸貨款，每月還 2 萬，貨款多少 ?   現值 $4,265,556 `= 金流 / 利率 *(1-(1+ 利率 )^- 期數 ) 利率 0.001 期數 240 金流 20000 錢琦維自己在HTML打 利率1.2%(月利率0.001)，房貸貨款，每月還2萬，貨款多少? 現值 $4,265,556 `=金流/利率*(1-(1+利率)^-期數) 利率 0.001 期數 240 金流 20000 東森電影台 鑽石王牌第三季 往更高更強的棒球殿堂甲子園邁進吧⚾ 東森電影台62頻道 12/29(二)起 週一至週五晚上8點 #鑽石王牌第三季 由 東森電影洋片粉絲團 發佈於 2020年12月17日 星期四

利率y(rate) 期數n(nper) 金流m(pmt) 終值f(fv) 參考劉任昌金融市場講義https://drive.google.com/file/d/17z6UZgN5fC2XCO1L8_BQs57dgQXzbwou/view?usp=sharing 錢琦維學習HTML+CSS+JavaScript程式碼 >

  錢琦維VBA程式碼  Const period As Integer = 4 Const maxerror As Double = 0.0000001 Dim payment(period) As Double '廣域變數 4 維度的陣列 Private Sub CommandButton1_Click()   Dim a, b, c, f, gap As Double   Dim loopNumber As Integer   a = 0   b = 1   gap = 10   loopNumber = 10   payment(0) = TextBox1.Value   payment(1) = TextBox2.Value   payment(2) = TextBox3.Value   payment(3) = TextBox4.Value   f = npv(a)   If f = 0 Then      Label9.Caption = 0   ElseIf f < 0 Then      Label9.Caption = "內部報酬率小於 0."   Else      Do While gap > mexerror And Abs(f) > maxerror And loopNumber < 300        loopNumber = loopNumber + 1        c = (a + b) / 2        f = npv(c)        If Abs(f) > maxerror And gap > maxerror Then           If f > 0 Then         ...

  Dim payment(period) As Double '廣域變數 4 維度的陣列 Private Sub CommandButton1_Click()   Dim a, b, c, f, gap As Double   Dim loopNumber As Integer   a = 0   b = 1   gap = 10   loopNumber = 10   payment(0) = TextBox1.Value   payment(1) = TextBox2.Value   payment(2) = TextBox3.Value   payment(3) = TextBox4.Value   f = npv(a)   If f = 0 Then      Label9.Caption = 0   ElseIf f &lt; 0 Then      Label9.Caption = "內部報酬率小於 0."   Else      Do While gap &gt; mexerror And Abs(f) &gt; maxerror And loopNumber &lt; 300        loopNumber = loopNumber + 1        c = (a + b) / 2        f = npv(c)        If Abs(f) &gt; maxerror And gap &gt; maxerror Then           If f &gt; 0 Then             a = c          ...