comparing dates

[Guest]

I'm trying to test for a specific date.
If todays date is greater than the date in cell A1
then complete the action, else, show the message "Unable to ..."
but unless I use <> the comparison does not work. The code
does not run. Why is this?
The following runs:
-------------
Dim dt as Date
dt = .Cells (1,1)
If date1 <> Now() Then
MsgBox "Unable to.."
------------
This does not run:

Dim dt as Date
dt = .Cells (1,1)
If dt > Now() Then
MsgBox "Unable to.."

 

[Rob van Gelder]

In your 2nd example you're using different names for your variables. dt vs.
date1

Always use Option Explicit.
You can use Date instead of Now which returns just date (not time hh:mm:ss)

Sub test()
Dim dtm As Date

dtm = Cells(1, 1).Value
If dtm <= Date Then
MsgBox "Unable to run"
End If
End Sub

 

[Bill Kuunders]

This works.........

Sub check()
Dim dt As Date
dt = Cells(1, 1)
If dt > Now() Then
MsgBox "Unable to.."
End If
End Sub

Regards
Bill K

 

[Guest]

Thanks, Rob.
I was missing .Value
Regards,

In your 2nd example you're using different names for your variables. dt vs.
date1

Always use Option Explicit.
You can use Date instead of Now which returns just date (not time hh:mm:ss)

Sub test()
Dim dtm As Date

dtm = Cells(1, 1).Value
If dtm <= Date Then
MsgBox "Unable to run"
End If
End Sub