Hello,

I would like to get the begin of the next month for each month since
one particular date until now

Sub Time()

Dim datFirst, dataSecond, monthnow, yearnow As Date
Dim year, month as String

datFirst = # 1/+month+/+Year+#

datsecond = Now

End sub

If the input value is = 15/02/2006

the result are

01/03/2006
01/04/2006
01/05/2006

I really do not know how to do it. Could someone help me please?

Ina