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

Pi Verify Sub
Math Reals Class

Private Sub PiVerify()
    'Test the Pi property.

    Debug.Assert Approx(PI, Atn(1#) * 4)
    Debug.Assert Approx(PI, 3.14159265358979)
End Sub

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