Private Sub EffectVerify()
    'Verify that the Effect function works correctly.

    Debug.Assert Approx(Effect(0.1, 1), 0.1)
    Debug.Assert Approx(Effect(0.1, 2), 0.1025)
    Debug.Assert Approx(Effect(0.1, 4), 0.103812890625)
    Debug.Assert Approx(Effect(0.1, 6), 0.104260424404149)
    Debug.Assert Approx(Effect(0.1, 12), 0.104713067441297)
    Debug.Assert Approx(Effect(0.1, 24), 0.104941335558327)
    Debug.Assert Approx(Effect(0.1, 360), 0.105155571428061)
    Debug.Assert Approx(Effect(0.1, 365), 0.105155781616233)

End Sub