Cari tanggal terakhir disuatu bulan

/*
Description:
pencarian tanggal terakhir suatu bulan
Arguments:
ad_parm - tanggal acuan
Returns:
date - tanggal terakhir suatu bulan
contoh - cari tanggal terkahir di bulan ini :
ld_last = f_last_date_in_month ( today() )
*/
date ld_last_date_in_previous_month
date ld_date_in_next_month

ld_last_date_in_previous_month = RelativeDate ( ad_parm, -day ( ad_parm ) )
ld_date_in_next_month = RelativeDate ( ld_last_date_in_previous_month, 35 )

return RelativeDate ( ld_date_in_next_month, &
-day ( ld_date_in_next_month ) )