Applies ToAccess för Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Returnerar ett värde av data som anger den ändrade internräntan för en serie periodiska betalningar (betalningar och kvitton).

Syntax

MODIR( värden (), finance_rate, reinvest_rate)

Syntaxen för funktionen MODIR har följande argument:

Argument

Beskrivning

värden ()

Obligatoriskt. Matris med Double-värden där penningflödets värden anges. Matrisen måste innehålla minst ett negativt tal (en betalning) och ett positivt tal (en inbetalning).

finance_rate

Obligatoriskt. Double (Dubbel ) anger räntesatsen som betalas som finansieringskostnad.

reinvest_rate

Obligatoriskt. Double (Double ) anger den ränta som erhålls på vinster från återinvestering av kontanter.

Kommentarer

Den modifierade internräntan är internräntan när betalningar och kvitton finansieras till olika nivåer. Funktionen MODIR tar både hänsyn till investeringskostnaden (finance_rate) och den ränta som erhålls på återinvestering av kontanter (reinvest_rate).

Argumenten finance_rate och reinvest_rate är procenttal uttryckta som decimalvärden. Till exempel uttrycks 12 procent som 0,12.

Funktionen MODIR använder ordningsföljden på värden i matrisen för att tolka ordningen på betalningar och intäkter. Därför måste du vara noggrann när du anger matrisens olika värden.

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

I det här exemplet används funktionen MODIR för att returnera den modifierade internräntan för en serie betalningar som finns i matrisen Values(). LoanAPR representerar finansieringsräntan och InvAPR representerar den ränta som erhålls på återinvestering.

Dim LoanAPR, InvAPR, Fmt, RetRate, MsgStatic Values(5) As Double    ' Set up array.LoanAPR = .1    ' Loan rate.InvAPR = .12    ' Reinvestment rate.Fmt = "#0.00"    ' Define money 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 = MIRR(Values(), LoanAPR, InvAPR)Msg = "The modified internal rate of return " & _      "for these five cash flows is"Msg = Msg & Format(Abs(RetRate) * 100, Fmt) & "%."' Display internal return rate.MsgBox Msg

Behöver du mer hjälp?

Vill du ha fler alternativ?

Utforska prenumerationsförmåner, bläddra bland utbildningskurser, lär dig hur du skyddar din enhet med mera.

Communities hjälper dig att ställa och svara på frågor, ge feedback och få råd från experter med rika kunskaper.