VFP function: LastDayOfMonth

* LastDayOfMonth.prg
* Returns the last day of a month, regardless of actual date settings

Lparameter ldDate
if Pcount() < 1
    ldDate = Date()     && Default today if no parameter
endif
Return Gomonth(Date(Year(ldDate),Month(ldDate),1),1)-1