ฟังก์ชัน PPmt

สิ่งสำคัญ:  บทความนี้เป็นการแปลด้วยเครื่อง โปรดดู ข้อจำกัดความรับผิดชอบ โปรดดูบทความฉบับภาษาอังกฤษ ที่นี่ เพื่อใช้อ้างอิง

ส่งกลับ Double ที่ระบุที่ต้องชำระสำหรับงวดที่ระบุของเงินรายปีโดยยึดตามการชำระเงินเป็นงวด คงที่และอัตราดอกเบี้ยคงหลัก

ไวยากรณ์

PPmt ( rate, per, nper , pv [, fv ] [, type ] )

ไวยากรณ์ของฟังก์ชันPPmtมีอาร์กิวเมนต์ต่อไปนี้:

อาร์กิวเมนต์

คำอธิบาย

อัตรา

ต้องระบุ คู่อัตราดอกเบี้ยต่องวดที่ระบุ ตัวอย่าง ถ้าคุณได้รับรถเงินกู้ที่มีอัตราต่อปีเปอร์เซ็นต์ (เม.ย.) ของ 10 เปอร์เซ็นต์ และผ่อนชำระรายเดือน อัตราต่องวดคือ 0.1/12 หรือ 0.0083

ต่อ

ต้องระบุ จำนวนเต็มที่ระบุงวดการชำระเงินในช่วง 1 ถึงnper

nper

ต้องระบุ จำนวนเต็มที่ระบุจำนวนงวดการชำระเงินรายปี ตัวอย่างเช่น ถ้าคุณชำระเงินรายเดือนกับเงินกู้ในปีสี่รถ ของเงินกู้ที่มีผลรวมของงวดการชำระเงิน 4 * 12 (หรือ 48)

ฟังก์ชัน pv

ต้องระบุ ระบุคู่มูลค่าปัจจุบัน หรือวันนี้ ค่าของชุดของการชำระเงินในอนาคตหรือใบตอบรับ ตัวอย่าง เมื่อคุณกู้ยืมเงินเพื่อซื้อรถยนต์ จำนวนเงินกู้คือ มูลค่าปัจจุบันผ่อนชำระรายเดือนของรถยนต์ที่คุณจะทำให้

fv

เพิ่มเติม โทนสีที่ระบุในอนาคตค่าหรือเงินสดยอดคงเหลือคุณต้องหลังจากที่คุณได้ทำการชำระเงินขั้นสุดท้าย ตัวอย่างเช่น มูลค่าในอนาคตของเงินกู้เป็น 0 $ เนื่องจากนั่นคือค่าหลังจากการชำระเงินขั้นสุดท้าย อย่างไรก็ตาม ถ้าคุณต้องการบันทึกจำนวนเป็น 50000 ดอลลาร์ 18 ปีสำหรับการศึกษาลูกของคุณ $50000 เป็นมูลค่าในอนาคต ถ้าเว้นไว้ จะถือว่าเป็น 0

ชนิด

เพิ่มเติม ตัวแปรระบุจะถือ ใช้ถ้ามีการชำระเงินครบกำหนดที่ส่วนท้ายของงวดการชำระเงิน 0 หรือใช้ 1 ถ้าการชำระเงินครบกำหนดเมื่อต้นงวด ถ้าเว้นไว้ จะถือว่าเป็น 0


ข้อสังเกต

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

อาร์กิวเมนต์rateและnperต้องถูกคำนวณโดยใช้งวดการชำระเงินที่แสดงในหน่วยเดียวกัน ตัวอย่างเช่น ถ้าอัตราจะคำนวณโดยใช้เดือนnperต้องมีคำนวณโดยใช้เดือนด้วย

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

ตัวอย่าง

หมายเหตุ: ตัวอย่างที่ตามสาธิตการใช้ฟังก์ชันนี้ใน Visual Basic for Applications (VBA) มอดูล ข้อมูลเพิ่มเติมเกี่ยวกับทำงานกับ VBA เลือกอ้างอิงสำหรับนักพัฒนา ในรายการดรอปดาวน์ถัดจากค้นหา และใส่เงื่อนไขอย่าง น้อยหนึ่งในกล่องค้นหา

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

Dim NL, TB, Fmt, FVal, PVal, APR, TotPmts, PayType, Payment, Msg, MakeChart, Period, P, I
Const ENDPERIOD = 0, BEGINPERIOD = 1 ' When payments are made.
NL = Chr(13) & Chr(10) ' Define newline.
TB = Chr(9) ' Define tab.
Fmt = "###,###,##0.00" ' Define money format.
FVal = 0 ' Usually 0 for a loan.
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 ' Ensure proper form.
TotPmts = InputBox("How many monthly payments do you have to make?")
PayType = MsgBox("Do you make payments at the end of month?", vbYesNo)
If PayType = vbNo Then PayType = BEGINPERIOD Else PayType = ENDPERIOD
Payment = Abs(-Pmt(APR / 12, TotPmts, PVal, FVal, PayType))
Msg = "Your monthly payment is " & Format(Payment, Fmt) & ". "
Msg = Msg & "Would you like a breakdown of your principal and "
Msg = Msg & "interest per period?"
MakeChart = MsgBox(Msg, vbYesNo) ' See if chart is desired.
If MakeChart <> vbNo Then
If TotPmts > 12 Then MsgBox "Only first year will be shown."
Msg = "Month Payment Principal Interest" & NL
For Period = 1 To TotPmts
If Period > 12 Then Exit For ' Show only first 12.
P = PPmt(APR / 12, Period, TotPmts, -PVal, FVal, PayType)
P = (Int((P + .005) * 100) / 100) ' Round principal.
I = Payment - P
I = (Int((I + .005) * 100) / 100) ' Round interest.
Msg = Msg & Period & TB & Format(Payment, Fmt)
Msg = Msg & TB & Format(P, Fmt) & TB & Format(I, Fmt) & NL
Next Period
MsgBox Msg ' Display amortization table.
End If

หมายเหตุ: ข้อจำกัดความรับผิดชอบของการแปลด้วยเครื่อง: บทความนี้มีการแปลด้วยระบบคอมพิวเตอร์โดยไม่มีการดำเนินการโดยบุคคล Microsoft จัดให้มีการแปลด้วยเครื่องนี้เพื่อช่วยให้ผู้ใช้ที่ไม่ได้พูดภาษาอังกฤษสามารถใช้ประโยชน์จากเนื้อหาเกี่ยวกับผลิตภัณฑ์ บริการและเทคโนโลยีของ Microsoft เนื่องจากบทความมีการแปลด้วยเครื่อง อาจมีข้อผิดพลาดด้านคำศัพท์ ไวยากรณ์หรือรูปประโยค

ขยายทักษะของคุณ
สำรวจการฝึกอบรม
รับฟีเจอร์ใหม่ก่อนใคร
เข้าร่วม Office Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×