Trả về một giá trị kiểu Đúp xác định tỷ suất hoàn vốn nội bộ của một chuỗi dòng tiền định kỳ (thanh toán và biên nhận).
Cú pháp
IRR( values () [, guess ] )
Cú pháp hàm IRR có các đối số sau đây:
|
Đối số |
Mô tả |
|
values () |
Bắt buộc. Mảng Kép xác định các giá trị dòng tiền. Mảng phải chứa ít nhất một giá trị âm (một khoản thanh toán) và một giá trị dương (biên nhận). |
|
guess |
Không bắt buộc. Biến_thể xác định giá trị mà bạn ước tính sẽ được IRR trả về. Nếu bỏ qua, ước đoán là 0,1 (10 phần trăm). |
Chú thích
Tỷ suất hoàn vốn nội bộ là lãi suất nhận được cho một khoản đầu tư bao gồm các khoản thanh toán và biên nhận xảy ra theo các khoảng thời gian đều đặn.
Hàm IRR dùng thứ tự các giá trị trong mảng để diễn giải thứ tự thanh toán và biên nhận. Hãy đảm bảo bạn nhập các giá trị thanh toán và biên nhận theo đúng thứ tự. Dòng tiền cho mỗi kỳ không phải cố định, vì nó dành cho một niên kim.
IRR được tính toán theo kỳ hạn. Bắt đầu với giá trị số đoán, IRR quay vòng qua tính toán cho đến khi kết quả chính xác trong phạm vi 0,00001 phần trăm. Nếu IRR không thể tìm thấy kết quả sau 20 lần thử, nó không thành công.
Ví dụ
Lưu ý: Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Trong ví dụ này, hàm IRR trả về tỷ suất hoàn vốn nội bộ của một chuỗi 5 dòng tiền chứa trong mảng Values(). Yếu tố mảng thứ nhất là dòng tiền âm đại diện cho chi phí khởi nghiệp kinh doanh. 4 dòng tiền còn lại đại diện cho dòng tiền dương trong 4 năm tiếp theo. Guess là tỷ suất hoàn vốn nội bộ ước tính.
Dim Guess, Fmt, RetRate, MsgStatic Values(5) As Double ' Set up array.Guess = .1 ' Guess starts at 10 percent.Fmt = "#0.00" ' Define percentage format.Values(0) = -70000 ' Business start-up costs.' Positive cash flows reflecting income for ' four successive years.Values(1) = 22000 : Values(2) = 25000Values(3) = 28000 : Values(4) = 31000' Calculate internal rate.RetRate = IRR(Values(), Guess) * 100Msg = "The internal rate of return for these " & _ "five cash flows is "Msg = Msg & Format(RetRate, Fmt) & " percent."MsgBox Msg ' Display internal return rate.
