如何使用VBA的Excel

Question

我的代码如下所示来计算dimishing平衡法折旧：

Function Depreciation(pCost As Currency, Age As Double) 

    Dim cValue As Currency 
    Dim Dep As Double 

    Select Case Age 
     Case Is < 1 
      Dep = pCost 
      cValue = pCost - Dep 
      Depreciation = cValue 

     Case Is < 2 
      Dim cValue1 As Currency 
      Depreciation = cValue * 0.25 
      cValue1 = cValue - Depreciation 
      Depreciation = cValue1 

     Case Is < 3 
      Dim cValue2 As Currency 
      Depreciation = cValue1 * 0.25 
      cValue2 = cValue1 - Depreciation 
      Depreciation = cValue2 
    End Select 

End Function 

Answer 1

假设你想depriciation后的金额，请尝试以下：

Option Explicit 

Function Depreciation(pCost As Currency, Age As Double) 
    Const DepreciationRate As Currency = 0.25 
    Dim cValue As Currency, i As Double 

    cValue = pCost 
    i = Age 
    Do Until i < 1 
     cValue = cValue * (1 - DepreciationRate) 
     'Debug.Print Age - i + 1, cValue ' Uncomment to see value of wach year 
     i = i - 1 
    Loop 
    Depreciation = cValue 
End Function