Good day Group,

Have some problem to understand the DateAdd function.
Seems that if the start date is a month with a last date of 28 and 30
the DateAdd function does not add a month in the way that the following
month will be shown with its last date. It works if the start date is a
month
that with a last date of 31.
The problem can be checked by following code.
Is this the way it is supposed to be or am I doing this the wrong way?

str = "2006-02-28"

For i = 1 To 5

d = DateAdd("m", i, str)

MsgBox d

Next i

Brgds

CG Rosen

Adding a 1 to the number of the month of the date is a reasonable
interpretation, but obviously not what you want.

This represents a way to get the last day. You would have to add your own
logic to determine which approach to use when.

Sub AA()
Dim dStr As Date
Dim d As Date, d1 As Date
dStr = DateSerial(2006, 2, 28)

For i = 1 To 5

d = DateAdd("m", i, dStr)
d1 = DateSerial(Year(dStr), Month(dStr) + i + 1, 0)

MsgBox d & vbNewLine & d1

Next i

End Sub

--
Regards,
Tom Ogilvy


"CG Rosén" wrote:

> Good day Group,
>
> Have some problem to understand the DateAdd function.
> Seems that if the start date is a month with a last date of 28 and 30
> the DateAdd function does not add a month in the way that the following
> month will be shown with its last date. It works if the start date is a
> month
> that with a last date of 31.
> The problem can be checked by following code.
> Is this the way it is supposed to be or am I doing this the wrong way?
>
> str = "2006-02-28"
>
> For i = 1 To 5
>
> d = DateAdd("m", i, str)
>
> MsgBox d
>
> Next i
>
> Brgds
>
> CG Rosen
>
>
>
>
>
>