Date Funtions for Previous & Next Buttons On Form

[JEBritt]

I have the start and end dates on my report forms set at the first and last days of the current month.
I also have three buttons for these dates:
One that advances forward one month at a time
One that goes back one month at a time
One that returns to the current month (same code as I use in "OnLoad")

Private Sub CommandBack_Click()
Me.DateStart = DateSerial(Year(Me.DateStart), Month(Me.DateStart) - 1, 1)
Me.DateEnd = DateAdd("m", 1, (DateAdd("d", -1, DateStart)))
End Sub

Private Sub CommandCurrent_Click()
Me.DateStart = DatePart("m", Now()) & "/01/" & DatePart("yyyy", Now())
Me.DateEnd = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
End Sub

Private Sub CommandForward_Click()
Me.DateStart = DateSerial(Year(Me.DateStart), Month(Me.DateStart) + 1, 1)
Me.DateEnd = DateSerial(Year(DateStart), Month(DateStart) + 1, 1) - 1
End Sub

Private Sub Form_Load()
Me.DateStart = DatePart("m", Now()) & "/01/" & DatePart("yyyy", Now())
Me.DateEnd = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
End Sub

[twinnyfo]

JEBritt,

Welcome to Bytes!

Is this a question or an attempt at an informative article?

[NeoPa]

Indeed. It's not clear where you're going with this thread.

[cactusdata]

By all means, avoid string handling of date and time.
Thus, your code can be reduced to:

Private Sub CommandBack_Click()
    Me.DateStart = DateSerial(Year(Me.DateStart), Month(Me.DateStart) - 1, 1)
    Me.DateEnd = DateSerial(Year(Me.DateStart), Month(Me.DateStart), 0)
End Sub
 
Private Sub CommandCurrent_Click()
    Me.DateStart = DateSerial(Year(Date), Month(Date), 1)
    Me.DateEnd = DateSerial(Year(Date), Month(Date) + 1, 0)
End Sub
 
Private Sub CommandForward_Click()
    Me.DateStart = DateSerial(Year(Me.DateStart), Month(Me.DateStart) + 1, 1)
    Me.DateEnd = DateSerial(Year(DateStart), Month(DateStart) + 2, 0)
End Sub
 
Private Sub Form_Load()
    Me.DateStart = DateSerial(Year(Date), Month(Date), 1)
    Me.DateEnd = DateSerial(Year(Date), Month(Date) + 1, 0)
End Sub

[JEBritt]

just information I thought some might find useful.