Funzione AMMORT.ANNUO

Restituisce un valore Double che specifica l'ammortamento a somma degli anni di un bene per un periodo specificato.

Sintassi

AMMORT.ANNUO( costo; val_residuo; vita_utile; periodo )

La sintassi della funzione AMMORT.ANNUO 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.


Osservazioni

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.

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.ANNUO per restituire l'ammortamento di un bene per un determinato periodo specificando il costo iniziale del bene (InitCost), il valore residuo al termine della vita utile del bene (SalvageVal) e la durata totale del bene espressa in anni (LifeTime). Il periodo di calcolo dell'ammortamento, espresso in anni, corrisponde a PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' 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?")
Loop
LifeTime = MonthLife / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."
Amplia le tue competenze
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa al programma Office Insider

Queste informazioni sono risultate utili?

Grazie per i tuoi commenti e suggerimenti

Grazie per il tuo feedback! Potrebbe essere utile metterti in contatto con uno dei nostri operatori del supporto di Office.

×