<-- Previous || Up || Next -->

Straight Line Depreciation Verify Sub
Math Financial Class

Private Sub StraightLineDepreciationVerify()
    'Verify that the StraightLineDepreciation function works correctly.

    Debug.Assert Approx(StraightLineDepreciation(1000000, 300000, 5), 140000)
    Debug.Assert Approx(StraightLineDepreciation(1000000, 300000, 10), 70000)
    Debug.Assert Approx(StraightLineDepreciation(1000000, 0, 5), 200000)

End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.