this is what I have:
Public Function fncIsPrevious1(dteFieldValue As Variant, ByVal dteReference As Date) As Boolean
Dim I As Integer
Dim dteDate As Date
fncIsPrevious1 = False
If IsEmpty(dteFieldValue) Or IsNull(dteFieldValue) Then Exit Function
I = -1...