Trả về một Double, xác định suất sinh lợi nội bộ cho một chuỗi các dòng tiền định kỳ (thanh toán và thu toán).
Cú pháp
IRR(values () [, guess ] )
Cú pháp hàm IRR có các đối số sau:
| Đối số | Mô tả |
|---|---|
| giá trị () | Bắt buộc. Mảng Double 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 (một hóa đơn). |
| đoán | Không bắt buộc. Biến xác định giá trị mà bạn ước tính sẽ được trả về bằng IRR. Nếu bỏ qua, guess là 0,1 (10%). |
Chú thích
Tỷ suất hoàn vốn nội bộ là lãi suất nhận được từ một khoản đầu tư bao gồm các khoản thanh toán và thu xảy ra ở các khoảng thời gian đều đặn.
Hàm IRR sử dụng trật tự của các giá trị trong mảng để diễn giải thứ tự của các khoản thanh toán và hóa đơn. Hãy bảo đảm bạn nhập các giá trị thanh toán và biên lai của bạn theo đúng thứ tự. Dòng tiền cho mỗi kỳ không nhất thiết phải được cố định như đối với niên kim.
IRR được tính toán theo lặp. Bắt đầu với giá trị của số đoán, IRR quay vòng qua các tính toán cho đến khi kết quả chính xác đến 0,00001 phần trăm. Nếu IRR không tìm thấy kết quả sau 20 lần thử, nó sẽ 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ộ cho một chuỗi 5 dòng tiền mặt được chứa trong mảng Values(). Thành phần mảng đầu tiên là một dòng tiền âm thể hiện chi phí khởi nghiệp kinh doanh. 4 dòng tiền còn lại đại diện cho các 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, Msg
Static 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) = 25000
Values(3) = 28000 : Values(4) = 31000
' Calculate internal rate.
RetRate = IRR(Values(), Guess) * 100
Msg = "The internal rate of return for these " & _
"five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent."
MsgBox Msg ' Display internal return rate.