Online Reference

Home

Microsoft Reference

Knowledge

Developer

VBA

NPer Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Double ที่ระบุจำนวนงวดของการจ่าย ทราบ โดยมีงวดการจ่ายสม่ำเสมอ การจ่ายคงที่ และอัตราดอกเบี้ยคงที่

ไวยากรณ์

NPer(rate, pmt, pv [,fv [,type]] )

อากิวเมนต์ของฟังก์ชัน NPer มีความหมาย คือ

ส่วน	รายละเอียด
rate	บังคับ, เป็นประเภทข้อมูล Double, ระบุอัตราดอกเบี้ยต่องวด เช่น การกู้เงินซื้อรถยนต์ที่อัตราดอกเบี้ย 10% ต่อปี และงวดการจ่ายเป็นรายเดือน อัตราดอกเบี้ยต่อเดือน คือ 0.1/12 หรือ 0.0083
pmt	บังคับ, เป็นประเภทข้อมูล Double, ระบุจำนวนเงินจ่ายในแต่ละงวด การจ่ายปกติรวมเงินต้นและดอกเบี้ย ซึ่งไม่สามารถเปลี่ยนได้ตลอดอายุการใช้งาน
pv	บังคับ, เป็นประเภทข้อมูล Variant, มูลค่าปัจจุบัน (หรือเงินรวมทั้งหมด) ของชุดการจ่ายสำหรับมูลค่าอนาคต เช่น การยืมเงินเพื่อซื้อรถยนต์ เงินกู้ คือ มูลค่าปัจจุบันที่ผู้กู้ต้องจ่ายเป็นรายเดือน ถ้าไม่กำหนด จะใช้ค่าเป็น 0
fv	ไม่บังคับ, เป็นประเภทข้อมูล Double, ระบุมูลค่าในอนาคต หรือจำนวนสดคงเหลือเมื่อสิ้นสุดงวดการจ่าย เช่น ต้องการฝากเงินออมเพื่อห้ได้ ฿50,000 ในระยะเวลา 18 เดือน เงินจำนวน ฿50,000 คือ มูลค่าอนาคต ถ้าไม่กำหนด จะใช้ค่าเป็น 0
type	ไม่บังคับ, เป็นประเภทข้อมูล Variant, ระบุกำหนดการจ่าย ใช้ 0 ถ้ากำหนดชำระเป็นสิ้นงวด หรือ 1 ถ้ากำหนดชำระเป็นต้นงวด ถ้าไม่กำหนด จะใช้ค่าเป็น 0

ลักษณะการประยุกต์

งวดการจ่ายเป็นชุดการจ่ายที่คงที่ตลอดระยะเวลาทั้งหมด การจ่ายสามารถเป็นการชำระเงินกู้ ( เช่น ค่างวดเงินกู้ซื้อบ้าน) หรือการลงทุน ( เช่น การฝากเงินออมเป็นรายเดือน)

อากิวเมนต์ทั้งหมด เงินสดจ่ายออก ( เช่น การฝากเงินออม) ให้เป็นค่าลบ เงินสดรับเข้า ( เช่น เงินปันผล) ให้เป็นบวก

ดูเพิ่มเติม

ฟังก์ชัน DDB, ฟังก์ชัน FV, ฟังก์ชัน IPMT, ฟังก์ชัน IRR, ฟังก์ชัน MIRR, ฟังก์ชัน NPV, ฟังก์ชัน Pmt, ฟังก์ชัน PPmt, ฟังก์ชัน PV, ฟังก์ชัน Rate, ฟังก์ชัน SLN, ฟังก์ชัน SYD

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน NPer ในการส่งออกค่าจำนวนงวดของการจ่าย โดยการจ่ายชำระเงินกู้เก็บค่าใน PVal อัตราดอกเบี้ยต่อปีซึ่งกำหนดเป็นงวด (APR / 12), การจ่าย (Payment), มูลค่าอนาคตของเงินกู้ (FVal) และตัวเลขที่ระบุกำหนดการจ่าย (PayType)

Dim FVal, PVal, APR, Payment, PayType, TotPmts
' เมื่อมีการจ่าย
Const ENDPERIOD = 0, BEGINPERIOD = 1

' ค่า FV ของเงินกู้มักจะกำหนดเป็น 0
FVal = 0
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

Payment = InputBox("How much do you want to pay each month?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)

If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD

TotPmts = NPer(APR / 12, -Payment, PVal, FVal, PayType)

If Int(TotPmts) <> TotPmts Then TotPmts = Int(TotPmts) + 1

MsgBox "It will take you " & TotPmts & " months to pay off your loan."