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
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.

×