Private Sub NominalVerify() 'Verify that the Nominal function works correctly. Debug.Assert Approx(Nominal(0.1, 1), 0.1) Debug.Assert Approx(Nominal(0.1, 2), 9.76176963403033E-02) Debug.Assert Approx(Nominal(0.1, 4), 9.64547563377804E-02) Debug.Assert Approx(Nominal(0.1, 6), 9.60712066403242E-02) Debug.Assert Approx(Nominal(0.1, 12), 9.56896851468452E-02) Debug.Assert Approx(Nominal(0.1, 24), 9.54996812070394E-02) Debug.Assert Approx(Nominal(0.1, 360), 9.53227976266913E-02) Debug.Assert Approx(Nominal(0.1, 365), 9.53226247647621E-02) End Sub
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.