Here is the easy how to:
Local integer &year = Year(%Date);
Local integer &month = Month(%Date);
/* Get the last day of the month */
If &month < 12 Then
&last_day = Date3(&year, &month + 1, 1) - 1;
Else
&last_day = Date3(&year + 1, 1, 1) - 1;
End-If;