can you add months to a date?

Hi. Just be aware of some differences. The first two round down, and
the last one does not.

Sub Demo()
Dim d As Date
Dim t As Date

d = DateValue("1/31/2009")

t = WorksheetFunction.EDate(d, 1)
Debug.Print t

t = DateAdd("m", 1, d)
Debug.Print t

t = DateSerial(Year(d), Month(d) + 1, Day(d))
Debug.Print t
End Sub

Returns:
2/28/2009
2/28/2009
3/3/2009

Note: I'm using Excel 2007, so EDate is a worksheet function.

Dana DeLouis
= = = = =


greg wrote:
cool thanks

"FSt1" wrote in message
...
hi
something like this might work for you'
assuming you have a date value in a cell......
Sub dateadd()
Dim d As Date
d = Range("I3").Value
d = DateSerial(Year(d), Month(d) + 6, Day(d))
MsgBox d
End Sub

regards
FSt1

"greg" wrote:

can you add months to a date?
So for example you have a date. any date. like 5/20/2010
Then I want to add 6 months to the date. Then get 11/20/2010
Is there a way to do this in vba/excel?

thanks