Sub Time(InputDate)
Dim datFirst as Date
Dim datSecond As Date
Dim datThird As Date

datFirst = DateSerial(Year(InputDate),Month(InputDate)+1,1)

datSecond = DateSerial(Year(InputDate),Month(InputDate)+2,1)

datThird = DateSerial(Year(InputDate),Month(InputDate)+3,1)

End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"ina" <roberta.inalbon@gmail.com> wrote in message
news:1145626946.697135.131080@i40g2000cwc.googlegroups.com...
> 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
>