Comparing Dates in VBA

[Yarimel]

I need to develop a function to compare a date with the current date and to print the message indicated. I cannot get the code below to work proprerly. If enter a future date, I still get the "expired, need to file a new char" message, please help!!!

Public Sub CharIsExpired(ByVal Value As Date)

dtExpirationDate = Value
dtCurDate = Now()

If dtExpirationDate < dtCurDate Then
Debug.Print "Expired, Need To File a New Char"
Debug.Print dtCurDate
Else
Debug.Print "Current"
Debug.Print dtCurDate
End If


End Sub

 

[ByteMyzer]

I see no Dim declarations for dtExpirationDate or dtCurDate. What are their respective variable types?

 

[Brianwarnock]

Why not just
If Value < Date Then

No point in using Now as you are not interested in time.

Brian

 

[Yarimel]

Both dtExpirationDate and dtCurDate are of type date.

 

[Vonnie]

I would also do a debug.print on the Value that is coming in. Before it is assigned. Make sure it is a valid date format.