add a date in if formula?

[xq]

i need to add an adjust date in if formula, but "6/30/2002" is added in as string type in stead of date type. thanks a lot if anybody could help me!
that's the formula here:

worksheets("sheet1&quot.range("D110&quot.formula = _
if(AND(Month(RC[-1])>6, Year(RC[-1])>2002), 6/30/2002, 0)

thanks again!

 

[JustinEzequiel]

try something like

Worksheets("sheet1&quot.Range("D110&quot.Formula = "=if(AND(Month(RC[-1])>6, Year(RC[-1])>2002), DATEVALUE(""6/30/2002"&quot, """&quot"

 

[xq]

thanks a lot, but doesn't work.

 

[xlbo]

xq - it shouldn't matter if the date is added as a string value, as long as the format of the cell is set to date - excel looks at strings and if they are in a valid date format, converts to date.
Failing that, try
FORMAT(DATEVALUE(""6/30/2002"&quot,"mm/dd/yyyy&quot
HTH
~Geoff~

 

[aMember]

Worked for me except it seems you might want it to be >= 2002.

.Range("D110&quot.Formula = _
"=if(AND(Month(RC[-1])>6, Year(RC[-1])>=2002), DATEVALUE(""6/30/2002"&quot, """&quot"

 

[xq]

thanks u guys! it does work now!