|
|
IPmt Function
VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Double ที่ระบุดอกเบี้ยที่จ่ายในงวดที่ต้องการทราบ
โดยมีงวดการจ่ายสม่ำเสมอ การจ่ายคงที่ และอัตราดอกเบี้ยคงที่
ไวยากรณ์
IPmt(rate, per, nper, pv [, fv [,type]] )
อากิวเมนต์ของฟังก์ชัน IPmt มีความหมาย คือ
| ส่วน |
รายละเอียด |
| rate |
บังคับ, เป็นประเภทข้อมูล Double, ระบุอัตราดอกเบี้ยต่องวด
เช่น การกู้เงินซื้อรถยนต์ที่อัตราดอกเบี้ย 10% ต่อปี และงวดการจ่ายเป็นรายเดือน
อัตราดอกเบี้ยต่อเดือน คือ 0.1/12 หรือ 0.0083 |
| per |
บังคับ, เป็นประเภทข้อมูล Double, ระบุงวดการจ่าย ซึ่งอยู่ในช่วง 1 ถึง nper |
| nper |
บังคับ, เป็นประเภทข้อมูล Integer, ระบุจำนวนงวดการจ่ายทั้งหมด
เช่น การจ่ายเงินกู้รายเดือนของเงินกู้ 4 ปี จำนวนงวดทั้งหมด คือ 4 *
12 (หรือ 48) งวดการจ่าย |
| pv |
บังคับ, เป็นประเภทข้อมูล Variant, มูลค่าปัจจุบัน (หรือเงินรวมทั้งหมด)
ของชุดการจ่ายสำหรับมูลค่าอนาคต เช่น การยืมเงินเพื่อซื้อรถยนต์ เงินกู้
คือ มูลค่าปัจจุบันที่ผู้กู้ต้องจ่ายเป็นรายเดือน ถ้าไม่กำหนด จะใช้ค่าเป็น
0 |
| fv |
ไม่บังคับ, เป็นประเภทข้อมูล Double, ระบุมูลค่าในอนาคต หรือจำนวนสดคงเหลือเมื่อสิ้นสุดงวดการจ่าย เช่น ต้องการฝากเงินออมเพื่อห้ได้ ฿50,000 ในระยะเวลา 18 เดือน เงินจำนวน ฿50,000 คือ มูลค่าอนาคต ถ้าไม่กำหนด จะใช้ค่าเป็น 0 |
| type |
ไม่บังคับ, เป็นประเภทข้อมูล Variant, ระบุกำหนดการจ่าย
ใช้ 0 ถ้ากำหนดชำระเป็นสิ้นงวด หรือ 1 ถ้ากำหนดชำระเป็นต้นงวด ถ้าไม่กำหนด
จะใช้ค่าเป็น 0 |
ลักษณะการประยุกต์
งวดการจ่ายเป็นชุดการจ่ายที่คงที่ตลอดระยะเวลาทั้งหมด การจ่ายสามารถเป็นการชำระเงินกู้
( เช่น ค่างวดเงินกู้ซ้อบ้าน) หรือการลงทุน ( เช่น การฝากเงินออมเป็นรายเดือน)
อากิวเมนต์ rate และ nper ต้องมีหน่วยเป็นหน่วยเดียวกัน เช่น rate คำนวณเป็นอัตราต่อเดือน
nper จะต้องเป็นรายเดือนด้วย
อากิวเมนต์ทั้งหมด เงินสดจ่ายออก (เช่น การฝากเงิน) ให้เป็นค่าลบ เงินสดรับเข้า
(เช่น เงินปันผล) ให้เป็นบวก
ดูเพิ่มเติม
ฟังก์ชัน DDB, ฟังก์ชัน
IRR, ฟังก์ชัน MIRR, ฟังก์ชัน
NPer, ฟังก์ชัน NPV, ฟังก์ชัน
Pmt, ฟังก์ชัน PPmt, ฟังก์ชัน
PV, ฟังก์ชัน Rate, ฟังก์ชัน
SLN, ฟังก์ชัน SYD
ตัวอย่าง
ตัวอย่างการใช้ฟังก์ชัน IPmt ในการคำนวณจำนวนดอกเบี้ยที่จ่าย เมื่อการจ่ายเท่ากันทุกงวด
โดยให้กำหนดเป็นงวด (APR / 12), จำนวนงวดการจ่ายทั้งหมด (TotPmts), การจ่าย
(Payment), มูลค่าปัจจุบันของการลงทุน (PVal), มูลค่าเงินกู้ในอนาคต (FVal),
และตัวเลขที่ระบุกำหนดการจ่าย (PayType)
Dim FVal, Fmt, PVal, APR, TotPmts, PayType, Period, IntPmt, TotInt, Msg
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' กำหนดประเภทการจ่าย
' ปกติใช้ 0 สำหรับเงินกู้
FVal = 0
' กำหนดรูปแบบการเงิน
Fmt = "###,###,##0.00"
PVal = InputBox("How much do you want to borrow?")
APR = InputBox("What is the annual percentage rate of your loan?")
' ตรวจความถูกต้องของค่า
If APR > 1 Then APR = APR / 100
TotPmts = InputBox("How many monthly payments?")
PayType = MsgBox("Do you make payments at end of the month?",
vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
For Period = 1 To TotPmts ' Total all interest.
IntPmt = IPmt(APR / 12, Period, TotPmts, -PVal, FVal, PayType)
TotInt = TotInt + IntPmt
Next Period
Msg = "You'll pay a total of " & Format(TotInt, Fmt)
Msg = Msg & " in interest for this loan."
' แสดงผลลัพธ์
MsgBox Msg
|
|
