Funzione AMMORT.COST

Restituisce un valore Double che specifica l'ammortamento a quote costanti di un bene per un singolo periodo.

Sintassi

AMMORT.COST( costo; val_residuo; vita_utile )

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


Osservazioni

Il periodo di ammortamento e l'argomentovita_utile devono essere espressi nella stessa unità di tempo. 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.COST per restituire l'ammortamento a quote costanti di un bene per un singolo 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).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."
Amplia le tue competenze su Office
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa al programma Office Insider

Queste informazioni sono risultate utili?

Grazie per il feedback!

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

×