Menentukan Tanggal Akhir Bulan dengan Visual Foxpro

Menentukan Tanggal Akhir Bulan dengan Visual Foxpro

  12.33    Prometheus

---

&& FUNCTION LastDateMonth
&& Untuk menentukan tanggal terakhir dari bulan yang ada dalam parameter _Date
&& PARAMETERS _Date adalah tanggal yang diberikan atau charackter dari suatu tanggal
&& RETURN : Tanggal terakhir dari bulan yang ada dalam paraneter _Date
&& Contoh :
&& LastDateMonth("11-11-2019") ==> 31-11-2019
&& LastDateMonth(11)

FUNCTION LastDateMonth
PARAMETERS _Date
IF VARTYPE(_Date)="C"
        _Date=CTOD(_Date)
ENDIF
IF VARTYPE(_Date)<>"D" .or. EMPTY(_Date)
        RETURN CTOD("")
ENDIF
_AwalMonth=MONTH(_Date)
FOR _Kei=1 TO 31
        IF MONTH(_Date)<>_AwalMonth
                EXIT
        ENDIF
        _Date=_Date+1
NEXT
RETURN _Date-1