Expression to get last day of month… (97 SR-2)

Topic

New Reply

I believe I remember Hans posting a really short expression to get the last day of the month… Something about a rule that Access defaults to the first day of the month in some situation where it didn’t know the day… I think…

Uggg!… I can’t remember anything lately… Stress!!! … What is happening to my brain??…

Reply | Quote

Replies

(Edited by D Willett on 07-Aug-03 17:48. )

You can set this as the control source of a text box, if this what you were after.

=DateSerial(DatePart(“yyyy”,Date()),DatePart(“m”,Date())+1,1)-1

or if you want it from a button, you can use

Me.Text0 = DateSerial(DatePart(“yyyy”, Date), DatePart(“m”, Date) + 1, 1) – 1

Text0 should be changed to your text control name and put in the on click event of the button.

Reply | Quote

Thanks Dave…

I’m adding it to a procedure that sets a Swap reset date depending on the interval chosen… It used to be that the traders picked a particular day of the month that would apply to all float, fixed or compound payment/reset dates… Now they’ve decided they want the last day of the month option, so I’m doing some upgrading to the application I designed for them a couple of years ago… (I know, I know… TMI… )

Anyway… As always, I appreciate the help!…

Reply | Quote

Or if you want it even shorter:
DateSerial(Year(Now),Month(Now)+1,0)
Peter

Reply | Quote

Thanks Peter! I think that’s the one that Hans posted… A short expression…

Reply | Quote