Private Sub Days360Verify()
    'Verify that the Days360 function works correctly.

    Debug.Assert Days360(#1/1/1993#, #2/21/1993#, False, False) = 50
    Debug.Assert Days360(#2/1/1993#, #3/1/1993#, False, False) = 30
    Debug.Assert Days360(#2/1/1992#, #3/1/1992#, False, False) = 30
    Debug.Assert Days360(#1/1/1993#, #1/1/1994#, False, False) = 360
    Debug.Assert Days360(#1/15/1993#, #2/1/1993#, False, False) = 16
    Debug.Assert Days360(#2/15/1993#, #4/1/1993#, False, False) = 46
    Debug.Assert Days360(#3/31/1993#, #4/30/1993#, False, False) = 30
    Debug.Assert Days360(#3/31/1993#, #12/31/1993#, False, False) = 270
    Debug.Assert Days360(#3/15/1993#, #6/15/1993#, False, False) = 90
    Debug.Assert Days360(#11/1/1993#, #3/1/1994#, False, False) = 120
    Debug.Assert Days360(#12/31/1993#, #2/1/1994#, False, False) = 31
    Debug.Assert Days360(#7/15/1993#, #9/15/1993#, False, False) = 60
    Debug.Assert Days360(#8/21/1993#, #4/11/1994#, False, False) = 230
    Debug.Assert Days360(#3/31/1993#, #4/1/1993#, False, False) = 1
    Debug.Assert Days360(#12/15/1993#, #12/31/1993#, False, False) = 16
    Debug.Assert Days360(#12/15/1993#, #12/30/1993#, False, False) = 15

End Sub