VBAのIE制御

SLN関数は、VBA関数の中で財務関数に分類される関数です。

目次

• SLN関数とは
• SLN関数のサンプルコード
  • 実行結果
  • 解説

SLN関数とは

SLN関数は、倍精度浮動小数点数型 (Double) の値を返します。定額法を用いて、資産の 1 期当たりの減価償却費を返します。

減価償却の期間は、引数 life と同じ単位で表されます。また、すべての引数には必ず正の値を指定してください。

SLN関数のサンプルコード

次の例は、資産 1 期当たりの減価償却費を、定額法を使って SLN 関数で計算します。資産購入時の価格 (InitCost)、耐用年数を経た後での資産の価格 (SalvageVal)、資産の耐用年数 (LifeTime) を指定します。

Sub sample()

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, PDepr
Const YEARMONTHS = 12                ' 1 年の月数を設定します。
Fmt = "###,##0.00"                    ' 金額の形式を定義します。
InitCost = InputBox("資産購入時の価格を入力してください。")
SalvageVal = InputBox("耐用期間を経た後の資産の価格を入力してください。")
MonthLife = InputBox("資産の耐用期間を月数で入力してください。")
Do While MonthLife < YEARMONTHS            ' 期間が 1 年以上かどうかを確認します。
    MsgBox "資産の耐用期間は 1 年以上です。"
    MonthLife = InputBox("資産の耐用期間を月数で入力してください。")
Loop
LifeTime = MonthLife / YEARMONTHS        ' 月数を年数に変換します。
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)            ' 年数を切り上げます。
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "減価償却費は " & Format(PDepr, Fmt) & " /年です。"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

財務関数一覧