I will answer my own question:

 assetValue = 5000;
 salvageValue = 5000*0.25;
 assetLife = 5;
 depreciationFactor = 1.0;(*  because: depreciationFactor/assetLife*100 = Rate Depreciation = 20 %*)

 decliningBalanceDepreciation[assetValue_, salvageValue_, assetLife_, 
   depreciationFactor_] := 
  Module[{bookValue = assetValue, depTable = {}}, 
   AppendTo[
    depTable, {"Year", "Beginning Book Value", "Depreciation Percent", 
     "Depreciation Amount", "Accumulated Depreciation", 
     "Ending Book Value"}];
   Do[depreciation = 
     Min[bookValue - salvageValue, 
      depreciationFactor*bookValue/assetLife];
    accumulatedDepreciation = 
     If[i == 1, depreciation, Last[depTable][[5]] + depreciation];
    endingBookValue = Max[salvageValue, bookValue - depreciation];
    AppendTo[
     depTable, {i, bookValue, (depreciation/bookValue)*100, 
      depreciation, accumulatedDepreciation, endingBookValue}];
    bookValue = endingBookValue;, {i, 1, assetLife}];
   depTable]

   Grid[decliningBalanceDepreciation[assetValue, salvageValue, assetLife,
      depreciationFactor], Frame -> All]