Mencari tanggal terakhir dalam suatu bulan

Title: Get the last date in a month
Fungsi : Mencari tanggal terakhir dalam suatu bulan
Lokasi : sebaiknya disimpan pada user function






datetime f_lastdate(datetime adt_month)
Integer li_bln1,li_bln2,li_day, x date ld_tgl1,ld_tgl2 datetime ldt_tgl1 li_bln1 = month(date(adt_month)) li_day = day(date(adt_month)) ld_tgl1 = date(adt_month) for x = 1 to 31 ld_tgl2 = relativedate(ld_tgl1, x) li_bln2 = month(ld_tgl2) if li_bln1 <> li_bln2 then ld_tgl2 = relativedate(ld_tgl2, -1) exit end if next ldt_tgl1 = datetime(ld_tgl2,time('23:59:59')) return ldt_tgl1