Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
comparing dates
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.." ---------- Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
comparing dates
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 -- Rob van Gelder - http://www.vangelder.co.nz/excel "Myriam" wrote in message ... 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.." ---------- Thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
comparing dates
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 "Myriam" wrote in message ... 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.." ---------- Thanks in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
comparing dates
Thanks, Rob.
I was missing .Value Regards, "Rob van Gelder" wrote: 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 -- Rob van Gelder - http://www.vangelder.co.nz/excel "Myriam" wrote in message ... 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.." ---------- Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Comparing Dates | Excel Discussion (Misc queries) | |||
Comparing dates | Excel Worksheet Functions | |||
Comparing 2 Dates | Excel Worksheet Functions | |||
Comparing Dates | Excel Discussion (Misc queries) | |||
Comparing dates | Excel Worksheet Functions |