Menentukan Nama Hari dengan Visual Foxpro

Menentukan Nama Hari dengan Visual Foxpro

  19.57    Prometheus

---

&& Function NamaHariKe
&& Untuk mentukan nama selain dalam bahasa inggris
&& PARAMETERS _Date,_En   >>>> Tanggal dan Logical .F. Jika dalam bahasa Indonesia
&& RETURN : String >>> Senin, Selasa, Rabu, Kamis, Jum'at, Sabtu atau Minggu

FUNCTION NamaHariKe
PARAMETERS _Date,_En
IF VARTYPE(_Date)<>"D"
        _Date=DATE()
ENDIF
IF VARTYPE(_En)<>"L"
        _En=.f.
ENDIF
_balik=cdow(_Date)
IF !_En
        DO CASE
                CASE UPPER(_balik)="SUN"
                        _balik="Minggu"
                CASE UPPER(_balik)="MON"
                        _balik="Senin"
                CASE UPPER(_balik)="TUE"
                        _balik="Selasa"
                CASE UPPER(_balik)="WED"
                        _balik="Rabu"
                CASE UPPER(_balik)="THU"
                        _balik="Kamis"
                CASE UPPER(_balik)="FRI"
                        _balik="Jumat"
                CASE UPPER(_balik)="SAT"
                        _balik="Sabtu"
                OTHERWISE
                        _balik="Err"
        ENDCASE
ENDIF
RETURN _balik