comparing two dates.

[stuartkeith]

Thanks for the help on my last question. One more small one.

How do I compare two dates to check if the entered date is newer or older than the current date. I have tried

 if date > thendate then xxx

but that dosent work correctly.

What I am doing is comparing the expirey date of a warranty and if it has passed then a note is given saying that the warranty has now expired.

thanks

 

[KeithG]

That should work do you have your variables defined as Date or String?

 

[stuartkeith]

thendate as date. At present it dosent matter if the date has expired or not it still executes the expired date option

Private Sub changelabels()

If Date > thendate Then
    expirelable.Caption = "Warranty Expired"
    expirelable.ForeColor = 255
End If

If Date < thendate Then
    expirelable.Caption = "Expires"
    expirelable.ForeColor = 10040115
End If

End Sub

 

[KeithG]

can you post an example db?

 

[stuartkeith]

IT seems as thendate is not reciving the date. I am using

thendate = me.expire.text

when I use the message box function to display thendate, it appears blank!

 

[stuartkeith]

can you post an example db?

Sorry no , as it is classed as "Secret" basicly

user enters purchase date of unit as date "dd/mm/yyyy" into a text box (txt_purchase)

user chooses from a drop down box how many years wrnt it comes with. (com_years)

This then populates a text box with the date the wrnt will expire. (txt_expire)
and sets the varible "thendate" as the date it will expire.

Now what happens is when the user looks at the record it checks the date stored in "thendate" with the current date. (date)

If the date has expired it then changes a label from "expires on" to "Warranty Expired"

I have used "thendate" as when I tried to use txt_expire.text I got a "object cannot be refrenced unless it has got focus" errors.

 

[stuartkeith]

 

[KeithG]

Try using just

Me.Expire