SLN Function won't work

• • Reply

  14 years ago

  by Gena

  Regena

  , Bermuda

  Joined 14 years ago

  Hi.

  I have a problem creating the code for the SLN Function.  It does not work in the solution at run-time. Here is what I created the code:

  Private

  Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

  Dim Cost As Double

  Dim Life As Double

  Dim Salvage As Double

  Dim Depreciation As Double

  Cost = ToDouble(txtCost.Text)

  Life = ToDouble(txtLife.Text)

  Salvage = ToDouble(txtSalvage.Text)

  Depreciation = ToDouble(sln(Cost, Life, Salvage))

  Depreciation = System.Math.Abs(Depreciation)

  End Sub

  Regena.

  Report abuse
• • Reply

  14 years ago

  by lexian

  Alexis Méndez

  , Puerto Rico

  Joined 14 years ago
  Hi,
  
  It seems that SFL function was only in VB6 in VB 2005 you have to create it.
  
  This returns the annual depreciation.

  Public function sfl(byval cost as double, byval salvage as double, byval life as double) as double
  Return (Cost – Salvage) / Life
  End function
  

  
  
  
  
  
  Report abuse
• • Reply

  14 years ago

  by Gena

  Regena

  , Bermuda

  Joined 14 years ago

  Thanks. I will work on it. Will let you know if it works.

   

  Regena

  Report abuse