Solved: Date + 1 year

[lifeson]

I have the following which generates a date based on the first day of a given month

[vba]
sDate = Me.txtStart.Value

alwSdate = DateSerial(Year(sDate), chkMonth, 1)

[/vba]

I was using this to calculate the same date plus 1 year

[vba]alwEdate = DateSerial(Year(sDate) + 1, chkMonth, 1)[/vba]

But I actually need it to be 1 day less

i.e.
start 1st March 2008 the end date would be 28th Feb 2009

so how many days are there in
Year(sDate) +1 and chkmonth-1

Any ideas?

[lifeson]

Found it
Changing the day to 0 seems to send it back 1 month

[vba]alwEdate = DateSerial(Year(sDate) + 1, chkMonth, 0)[/vba]