ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   comparing two dates and executing code on condition (https://www.excelbanter.com/excel-discussion-misc-queries/107689-comparing-two-dates-executing-code-condition.html)

ashish128

comparing two dates and executing code on condition
 
Hello All,
I have a macro which works perfectly but I want to add a condtion
which will compare the current system date with a date (a static date
written in code itself so no dynamics required). If the dates are same
then the code should run further else it should terminate my macro.

I dont have knowledge of VBA so please detail the process to wrap my
existing macro into a Condition.
In C/C++ I would have written
if(today()=8/30/2006) //////// Please ignore syntax faults if any.
{
execute true code // current macro code
}

Please help.


Alan

comparing two dates and executing code on condition
 
Try:

Sub test()

Dim dDate As Date
Const aDate As Date = "8/30/2006"
dDate = Format(Now(), "MM/DD/YYYY") 'the test date

If dDate = aDate Then
MsgBox "Dates match - do this code"
Else
End
End If

End Sub


ashish128 wrote:
Hello All,
I have a macro which works perfectly but I want to add a condtion
which will compare the current system date with a date (a static date
written in code itself so no dynamics required). If the dates are same
then the code should run further else it should terminate my macro.

I dont have knowledge of VBA so please detail the process to wrap my
existing macro into a Condition.
In C/C++ I would have written
if(today()=8/30/2006) //////// Please ignore syntax faults if any.
{
execute true code // current macro code
}

Please help.



Gary''s Student

comparing two dates and executing code on condition
 
Try:


Sub gsnu()
Dim d1 As Date
Dim d2 As Date
d1 = Date
d2 = "February 12,1997"
If d1 < d2 Then Exit Sub
MsgBox ("the date matches")
End Sub
--
Gary's Student


"ashish128" wrote:

Hello All,
I have a macro which works perfectly but I want to add a condtion
which will compare the current system date with a date (a static date
written in code itself so no dynamics required). If the dates are same
then the code should run further else it should terminate my macro.

I dont have knowledge of VBA so please detail the process to wrap my
existing macro into a Condition.
In C/C++ I would have written
if(today()=8/30/2006) //////// Please ignore syntax faults if any.
{
execute true code // current macro code
}

Please help.



ashish128

comparing two dates and executing code on condition
 
Thanks Alan, Your code worked and also thanks for keeping the point of
"Date format" in mind as i really forgot to mention it.
Thanks again
Alan wrote:
Try:

Sub test()

Dim dDate As Date
Const aDate As Date = "8/30/2006"
dDate = Format(Now(), "MM/DD/YYYY") 'the test date

If dDate = aDate Then
MsgBox "Dates match - do this code"
Else
End
End If

End Sub


ashish128 wrote:
Hello All,
I have a macro which works perfectly but I want to add a condtion
which will compare the current system date with a date (a static date
written in code itself so no dynamics required). If the dates are same
then the code should run further else it should terminate my macro.

I dont have knowledge of VBA so please detail the process to wrap my
existing macro into a Condition.
In C/C++ I would have written
if(today()=8/30/2006) //////// Please ignore syntax faults if any.
{
execute true code // current macro code
}

Please help.



ashish128

comparing two dates and executing code on condition
 
Hi, <You have helped me twice but I dont know your name yet
I am thankful for your reply and solution but I opted Alan's
solution.
Hope to see u soon.

Gary''s Student wrote:
Try:


Sub gsnu()
Dim d1 As Date
Dim d2 As Date
d1 = Date
d2 = "February 12,1997"
If d1 < d2 Then Exit Sub
MsgBox ("the date matches")
End Sub
--
Gary's Student


"ashish128" wrote:

Hello All,
I have a macro which works perfectly but I want to add a condtion
which will compare the current system date with a date (a static date
written in code itself so no dynamics required). If the dates are same
then the code should run further else it should terminate my macro.

I dont have knowledge of VBA so please detail the process to wrap my
existing macro into a Condition.
In C/C++ I would have written
if(today()=8/30/2006) //////// Please ignore syntax faults if any.
{
execute true code // current macro code
}

Please help.





All times are GMT +1. The time now is 02:42 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com