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

Net Present Value Verify Sub
Math Financial Class

Private Sub NetPresentValueVerify()
    'Verify that the NetPresentValue function works correctly.

    Debug.Assert Approx(NetPresentValue(0.0625, Array(-70000, 22000, 25000, 28000, 31000)), 19312.5702095352)
    Debug.Assert Approx(NetPresentValue(0, Array(-70000, 22000, 25000, 28000, 31000)), 36000)

End Sub

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