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

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)

"geebee" (noSPAMs) wrote in message
...
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

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

--
Gary''s Student - gsnu200787