Fortran : Depreciation Calculator 2.1

[kimpro82]

Refactoring

• Divide into
  • SetTableFormats()
  • PrintProgramInfo()
  • PrintDepreciationMethodDetails()
  • GetUserInput()
  • CalculateDefaultDepreciationRate()
  • PrintDepreciationTableHeader()
  • PrintDepreciationTableRow()

Result

  Depreciation Calculator Ver.2.1 (2024.04.29)

  ※ In declining balance method and double declining balance depreciation, 
    the salvage value is not recognized in the calculation of the depreciation base.

    Enter the initial cost of the asset           : ……

[kimpro82]

Result

  Depreciation Calculator Ver.2.1 (2024.04.29)

  ※ In declining balance method and double declining balance depreciation, 
    the salvage value is not recognized in the calculation of the depreciation base.

    Enter the initial cost of the asset           : 11000
    Enter the salvage value of the asset
      (or the memorandum value)                   : 1000
    Enter the useful life of the asset (in years) : 5
    Enter the depreciation rate(%)
      (Default: 2 / useful life, ≒ DDB)           : 50

  <Straight-Line Method>

   Year    Depreciation     Accumulated            Book
                Expense    Depreciation           Value
      1         2000.00         2000.00         9000.00
      2         2000.00         4000.00         7000.00
      3         2000.00         6000.00         5000.00
      4         2000.00         8000.00         3000.00
      5         2000.00        10000.00         1000.00

  ……