Are you attempting to construct a loop that will iterate through each day of
the previous 12 months? If so, you can do that directly in the For statement
of your For..Next loop. Consider this (and notice that D is declared as
Date)...

Sub Test()
Dim D As Date
For D = DateAdd("m", -12, Date) To Date
Debug.Print D
Next
End Sub

The above code will print the date for each day for the previous year...
just replace it with the code you actually want to operate on those days.

--
Rick (MVP - Excel)


"inungh" wrote in message
...
I would like to calculate rollong calendar from today in the loop.

For example, today is Dec/11/2008 and I need to get all informaiton 12
months before today. (from Dec/11/2007 to Dec/11/2008).

I just wonder can DateSerila do the job.

For example, DateSerial(MyYear, MyMonth - i, MyDay)

Will DateSerial changed the year if the month is minus number?

Your information is great appreciated,