formula in code

[geebee]

hi,

i have the following:

Dim CurrentReportMonth As Date
CurrentReportMonth = "=DATE(YEAR(NOW()),MONTH(NOW())-1+0,1)"

i am trying to figure out how i can make this work, like setting the
currentreportmonth in code, but i keep getting the error message. what am i
doing wrong?

thanks in advance,
geebee

 

[Bob Phillips]

Dim CurrentReportMonth As Date
CurrentReportMonth = DateSerial(Year(Date),Month(Date)-1,1)


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Gary''s Student]

Sub gibbs()
Dim CurrentReportMonth As Date
CurrentReportMonth = Evaluate("DATE(YEAR(NOW()),MONTH(NOW())-1+0,1)")
MsgBox (CurrentReportMonth)
End Sub