Applies ToAccess per Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Restituisce un valore Double che specifica l'ammortamento di un bene per un periodo di tempo specifico usando il metodo di ammortamento a doppie quote proporzionali ai valori residui o un altro metodo specificato dall'utente.

Sintassi

AMMORT( costo; val_residuo; vita_utile; periodo [; fattore])

La sintassi della funzione AMMORT ha gli argomenti seguenti:

Argomento

Descrizione

costo

Obbligatorio. Valore Double che specifica il costo iniziale del bene.

val_residuo

Obbligatorio. Valore Double che specifica il valore del bene al termine della vita utile.

vita_utile

Obbligatorio. Valore Double che specifica la durata della vita utile del bene.

periodo

Obbligatorio. Valore Double che specifica il periodo di calcolo dell'ammortamento del bene.

fattore

Facoltativo. Valore Variant che specifica il tasso di deprezzamento del valore residuo. Se viene omesso, verrà considerato uguale a 2, ossia il metodo di ammortamento a doppie quote proporzionali ai valori residui.

Osservazioni

Il metodo a doppie quote proporzionali ai valori residui calcola l'ammortamento a tasso accelerato. L'ammortamento è massimo nel primo periodo e diminuisce nei periodi successivi.

Gli argomenti vita_utile e periodo devono essere espressi nella stessa unità di tempo. Se ad esempio l'argomento vita_utile viene espresso in mesi, anche l'argomento periodo deve essere espresso in mesi. Tutti gli argomenti devono essere numeri positivi.

La funzione AMMORT usa la formula seguente per calcolare l'ammortamento per un determinato periodo:

Ammortamento / periodo = ((costoval_residuo) * fattore) / vita_utile

Esempio

Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.

In questo esempio viene usata la funzione AMMORT per restituire l'ammortamento di un bene per un periodo specificato dati il costo iniziale (InitCost), il valore di recupero al termine della durata utile del bene (SalvageVal), la durata totale del bene in anni (LifeTime) e il periodo in anni per cui viene calcolato l'ammortamento (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, DeprConst YRMOS = 12    ' Number of months in a year.Fmt = "###,##0.00"InitCost = InputBox("What's the initial cost of the asset?")SalvageVal = InputBox("Enter the asset's value at end of its life.")MonthLife = InputBox("What's the asset's useful life in months?")Do While MonthLife < YRMOS    ' Ensure period is >= 1 year.    MsgBox "Asset life must be a year or more."    MonthLife = InputBox("What's the asset's useful life in months?")LoopLifeTime = MonthLife / YRMOS    ' Convert months to years.If LifeTime <> Int(MonthLife / YRMOS) Then    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.End If DepYear = CInt(InputBox("Enter year for depreciation calculation."))Do While DepYear < 1 Or DepYear > LifeTime    MsgBox "You must enter at least 1 but not more than " & LifeTime    DepYear = InputBox("Enter year for depreciation calculation.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."

Serve aiuto?

Vuoi altre opzioni?

Esplorare i vantaggi dell'abbonamento e i corsi di formazione, scoprire come proteggere il dispositivo e molto altro ancora.

Le community aiutano a porre e a rispondere alle domande, a fornire feedback e ad ascoltare gli esperti con approfondite conoscenze.