
FUNCTION lastdom
PARAMETERS p_date
PRIVATE p_date, r_date, r_month

r_date = p_date

IF type('r_date') = 'C'
  r_date = ctod('r_date')
ENDIF

IF type('r_date') # 'D' .or. empty(r_date)
  ?? chr(7)
  RETURN({})
ELSE
  r_month = month(r_date)
  r_date = r_date + 28 - day(r_date)

  DO WHILE r_month = month(r_date)
    r_date = r_date + 1
  ENDDO

  RETURN(r_date-1)
ENDIF

********

