發表文章

目前顯示的是 12月, 2020的文章

劉任昌17+18週期末考

劉任昌2021年1月期末考 現值 利率 期數 金流 終值

16週將word+EXCEL貼上網頁

圖片
利率 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 投入、陶醉與個性,她壓倒其他所有的舞者。 由 Robert Liu 發佈於  2020年12月18日 星期五 ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 39.9.65.136 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Gossiping/M.1601230920.A.9B6.html ※ 編輯: hotaru3456 (39.9.65.136 臺灣), 09/28/2020 02:22:27 推 HANAXALICE: 噁心 09/28 02:23 推 Sabo5566: 果然是大便咖一個 09/28 02:24 → a7788783: 民進黨執政下景氣二十年來最好,台灣錢淹腳目,會議室 09/28 02:25 → a7788783: 裡莫名的有幾箱錢也不奇怪,這正是台灣人錢多到滿出來 09/28 02:25 → a7788783: 的代表,國民黨閉嘴,你辦得到? 09/28 02:25 推 sharkimage: wwww 09/28 02:26 推 sharkimage: https://i.imgur.com/Y2rEJUo.jpg 09/28 02:29 推 kkjjrtlym: ==================覺青 側翼 又瞎惹================= 09/28 02:30 → devilscry: 又論文抄襲… 09/28 02:31 推 wallace1202: 垃圾政府專出垃圾,不意外 09/28 02:34 → wallace1202: https://m.imgur.com/6WYSVue.gif 09/28 02:35 → wallace1202: 吱蟑熱身...

第十五週HTML+CSS+JavaScript+WORD轉pdf

圖片
利率y(rate) 期數n(nper) 金流m(pmt) 終值f(fv) 參考 劉任昌金融市場講義 劉軒立學習HTML+CSS+JavaScript程式碼 <style> h1{border: 20px 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" />...

第14週EXCEL App 錄製巨集 recording macro

圖片
賴青恴學習劉任昌的VBA程式碼 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) > maxerro...