陳佩筠

發表文章

陳佩筠期末考

1月 03, 2021

陳佩筠2021年1月期末考現值利率期數金流終值對照EXCEL先打開從範圍定義名稱對照EXCEL金融計算程式碼 <style> h1{border: 30px outset red; background-color: green; color: white; text-align: center;} </style> <h1>陳佩筠2021年1月期末考</h1> <table border="1"> <tbody> <tr><td>現值</td><td><input id="p" type="number" /></td><td><input onclick="CompP()" type="button" value="計算現值" /></td><td id="p_" width="160"></td></tr> <tr><td>利率</td><td><input id="y" type="number" /></td></tr> <tr><td>期數</td><td><input id="n" type="number" /></td><td><input onclick="CompN()" type="button" value="計算期數" /></td><td id="n_"></td></tr...

閱讀完整內容

期末考17+18週 JavaScript 金融計算

12月 27, 2020

陳佩筠2021年1月期末考現值利率期數金流終值

閱讀完整內容

第15週HTML+CSS+JavaScript+截取PDF頁面

12月 13, 2020

利率y(rate) 期數n(nper) 金流m(pmt) 終值f(fv) 參考劉任昌金融市場講義劉任昌學習HTML+CSS+JavaScript程式碼 <style> h1{border: 30px outset red; background-color: green; color: white; text-align: center;} </style> <script> function computePV(){ var r = document.getElementById("rate").value; var n = document.getElementById("nper").value; var m = document.getElementById("pmt").value; var f = document.getElementById("fv").value; pvif =r; pvif++; pvif =1/pvif**n; var pv = (1-pvif)*m/r + f * pvif; document.getElementById("pv").innerHTML = pv; } </script> <body> <table border="1"> <tr><td>利率y(rate)</td><td>期數n(nper)</td><td>金流m(pmt)</td><td>終值f(fv)</td></tr> <td><input id="rate" type="number"/></td> <td><input id="nper" type="number" /></t...

閱讀完整內容

第14週

12月 06, 2020

Dim n As Integer Dim spec As String 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 n = n + 1 '第幾次計算+1 a = 0 '報酬率0 b = 1 '報酬率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 < 100 loopNumber = loopNumber + 1 c = (a + b) / 2 f = npv(c) If Abs(f) > maxerror And gap >...

閱讀完整內容

第13週WORD巨集+表單+TypeText+TypeParagraph+字串

11月 29, 2020

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 mexerror And Abs(f) > maxerror And loopNumber maxerror And gap > maxerror Then If f > 0 Then a = c Else b = c gap = b - a End If Else Label9.Caption = c End If Loop End If Label10.Caption = f Label11.Caption = loopNumber End Sub Private Sub CommandButton2_Click() End End Sub Function npv(rate) '計算特定折現率rate的淨現值 Dim y As Double Dim j As Integer y = -payment(0) For j = 1 To period y = y + payment(j) / (1 + rate) ^ j Next ...

閱讀完整內容

第十週

11月 22, 2020

1 最大 2 次大 3 大三 4 第四 5 第五 6 第六

閱讀完整內容

第十二週陳佩筠教你金融計算

11月 22, 2020

躉繳第1期第2期第3期注意，包含首期躉繳的現金流量都大於0。報酬率: 淨現值: 迴圈次數: 陳佩筠向劉任昌學習的程式碼 <head> <style> .Takming { border: 20px outset red; background-color: green; color: white; text-align: center; } .pmt { width: 80pt; height: 20pt; background-color: coral; color: black; font-weight:bold text-align: right; } .pig { width: 80pt; height: 20pt; background-color: gray; color: white; font-weight:bold text-align: right; } </style> </head> <table border="1"> <tbody><tr align="center"><td>躉繳</td><td>第1期</td><td>第2期</td><td>第3期</td></tr> <tr><td><input class="pig" type="number" /></td> <td><input class="pig" type="number" /></td> ...

閱讀完整內容