Function EndOfMonth Parameters dTanggal Do Case Case Month(dTanggal)=4 Or Month(dTanggal)=6 Or Month(dTanggal)=9 Or Month(dTanggal)=11 Return Date(Year(dTanggal),Month(dTanggal),30) Case Month(dTanggal)=2 If Year(dTanggal)%4=0 Return Date(Year(dTanggal),Month(dTanggal),29) Else Return Date(Year(dTanggal),Month(dTanggal),28) Endif Otherwise Return Date(Year(dTanggal),Month(dTanggal),31) Endcase ENDFUNC