change date by month (1 Viewer)

[bbwolff]

I use textboxes to limit the time periods for report
the defaults are set to first and last day of previous month
I'd like to add a button that would set you a month back/forward, but I'm stuck on how to change values to correspond to first/last day ofprevious month

this is my onload code

LastDay = DateSerial(Year(Date), Month(Date), 0)
FirstDay = LastDay - Day(LastDay) + 1
Me.tdat1 = FirstDay
Me.tdat2 = LastDay

 

[smig]

here some examples:

DateSerial(Year(date), 1, 1) ' -- first day of year
DateSerial(Year(date), Month(date), 1) ' -- first day of month
DateSerial(Year(DateAdd("yyyy", -1, Date)), 1, 1) ' -- first day of previous year
DateSerial(Year(DateAdd("yyyy", -1, Date)), 12, 31) ' -- 31 of Dec. of previous year
DateSerial(Year(date), DateAdd("mm", 1, Date), 1) - 1 ' -- last day of month - Go to first day of next month and move one day back

 

[Galaxiom]

There are simpler expressions for the last day.
DateSerial understands zero as a day or month.

For example, last day of previous month:
DateSerial(Year(somedate), Month(somedate),0)

 

[smig]

There are simpler expressions for the last day.
DateSerial understands zero as a day or month.

For example, last day of previous month:
DateSerial(Year(somedate), Month(somedate),0)

Nice to know