can you add months to a date?

  • Thread starter Thread starter greg
  • Start date Start date
G

greg

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
 
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
 
cool thanks

FSt1 said:
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
Click to expand...
 
Just so you understand what smartin was trying to tell you, try the code
FSt1 gave you with a date of January 31st and add one month to it... is that
the date you expected?
 
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
= = = = =
 
Back
Top