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

Internal Rate Of Return Verify Sub
Math Financial Class

Private Sub InternalRateOfReturnVerify()
    'Verify that the InternalRateOfReturn function works correctly.

    Const Epsilon = 0.000000000001 ' 1E-12

    Debug.Assert Approx(InternalRateOfReturn(Array(-4000, 500, 5000)), 0.182279554197971, Epsilon)
    Debug.Assert Approx(InternalRateOfReturn(Array(4000, -500, -5000)), 0.182279554197953, Epsilon)
    
End Sub

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