Setting date to beginning or end of next month

S

sharontodd

I want the program to assign the beginning of next month as the value in a
text box (the end to anonther) that the user could edit.
 
D

Dirk Goldgar

sharontodd said:
I want the program to assign the beginning of next month as the value in a
text box (the end to anonther) that the user could edit.
Click to expand...


This expression will return the first day of next month, based on the
current date:

DateSerial(Year(Date()), Month(Date()) + 1, 1)

You could set it as the text box's Default Value property:

=DateSerial(Year(Date()), Month(Date()) + 1, 1)

Or you could assign via VBA code in some appropriate event:

Me.txtNextMonth = DateSerial(Year(Date), Month(Date) + 1, 1)
 
Top