Menentukan Tanggal Awal Minggu dengan Visual Foxpro

Menentukan Tanggal Awal Minggu dengan Visual Foxpro

  05.11    Prometheus

---

&& FUNCTION FirstDateW
&& PARAMETERS _Date,_nDayW
&& _Date adalah tanggal atau string tanggal
&& _nDayW adalah numerik 1'st Day Of Week yang bernilai SET("FDOW")
&& RETURN : Tanggal Awal dari Minggu dimana _Date berada
&& ? FirstDateW()  ===> 17-12-2016 jika sekarang tanggal 17 s/d 24 Desember 2016
&& ? FirstDateW("21-12-2016",0) ===> 17-12-2016
&& ? FirstDateW("21-12-2016",1) ===> 17-12-2016
&& ? FirstDateW("21-12-2016",2) ===> 18-12-2016
&& ? FirstDateW("21-12-2016",2.01) ===> 18-12-2016
&& ? FirstDateW(1,2.01) ===> 18-12-2016 jika sekarang tanggal 17 s/d 24 Desember 2016


FUNCTION FirstDateW
PARAMETERS _Date,_nDayW
IF VARTYPE(_Date)="C"
        _Date=CTOD(_Date)
ENDIF
IF VARTYPE(_Date)<>"C"
        _Date=DATE()
ENDIF
IF VARTYPE(_nDayW)="C"
        _nDayW=VAL(_nDayW)
ENDIF
IF VARTYPE(_nDayW)<>"N" .or. !(_nDayW>=1 .and. _nDayW<=7)
        && Ini terjadi jika _nDayW tak diberikan atau _nDayW<1 atau _nDayW>7
        _nDayW=SET("FDOW")
ENDIF
_nDayW=INT(_nDayW)  && Antisipasi jika PARAMETER _nDayW diberikan pecahan
RETURN _Date-DOW(_Date,_nDayW)