Last day in month

[Delta729]

I have a form field called "txtDateBeg", which is just a short date field that can have date typed into the field.



I have another field called "txtDateEnd", which I'm trying to have equaled to the last day of the month for whatever is typed in the first field "txtDateBeg". It's nothing that's going to be stored, just after the update as a reminder what the last day of the month is based on the date keyed in.

(I know this is really simple, I can't think of what's its called, I can't seem to find anything online).

Thanks,

[pbaldy]

=DateSerial(Year(dte), Month(dte) + 1, 0)

Where dte is the input date.

[Delta729]

Perfect, thank you.

=DateSerial(Year([txtDateBeg]),Month([txtDateBeg])+1,0)

I thought there was something like what Excel had for EOM function.

[pbaldy]

Happy to help.

[ssanfu]

I thought there was something like what Excel had for EOM function.

There is....
A UDF, but you have to add the function to a standard module. Then you use it just like you would with the Excel EOM function.

Function GetEOM(pTheDate As Date) As Date
   GetEOM = DateSerial(Year(pTheDate), Month(pTheDate)+1, 0)
End Function