Funzione AMMORT.ANNUO [VBA]
Restituisce l'ammortamento degressivo aritmetico per un determinato periodo.
Questa costante, funzione od oggetto viene abilitata con l'istruzione Option VBASupport 1 posizionata prima del codice eseguibile del programma all'interno del modulo.
SYD (Cost as Double, Salvage as Double, Life as Double, Period as Double)
Double
Costo definisce il costo iniziale di un bene.
Valore residuo è il valore residuo che rimane al termine dell'ammortamento di un bene.
Vita utile è il numero di periodi in cui il bene viene ammortizzato (periodo di ammortamento).
Rata è il numero di periodi per il quale desiderate calcolare l'ammortamento.
REM ***** BASIC *****
Option VBASupport 1
Sub ExampleSYD
REM Restituisce l'ammortamento annuale di un bene che costa $10.000
REM all'inizio del primo anno, e possiede un valore residuo di $1.000 dopo cinque anni.
Dim syd_yr1 As Double
REM Restituisce l'ammortamento durante il primo anno.
syd_yr1 = SYD( 10000, 1000, 5, 1 )
print syd_yr1 ' syd_yr1 è ora uguale a 3000.
End Sub