SLN Fonksiyonu [VBA]
Dönem başına doğrusal azalan amortismanı hesaplar. Bu azalma miktarı yıpranma süresi boyunca sabittir.
Bu fonksiyon ya da sabit, bir modülde çalıştırılabilir program kodundan önce yerleştirilen Option VBASupport 1 ifadesi ile etkinleştirilir.
SLN (Cost as Double, Salvage as Double, Life as Double)
Double
Maliyet bir varlığın ilk alındığı andaki fiyatıdır.
Kalan değer malın ömrü tamamlandıktan sonraki değeridir.
Ömür Varlığın amortismanındaki dönem sayısını belirleyen amortisman dönemi.
REM ***** BASIC *****
Option VBASupport 1
Sub ExampleSLN
REM 10.000 dolar tutarındaki bir varlığın yıllık amortismanını hesaplayın.
REM, 1. yılın başlangıcında ve 5 yıl sonra 1,000 dolarlık kurtarma değerine sahip.
Dim y_dep As Double
y_dep = SLN( 10000, 1000, 6 )
print y_dep ' 1500 döndürür.
End Sub