Menentukan Tanggal Awal Bulan dengan Visual Foxpro

Menentukan Tanggal Awal Bulan dengan Visual Foxpro

  19.20    Prometheus

---

&& Menentukan tanggal 1 dari tanggal yang diberikan
&& Parameter dan nilai return bertype date
&& Misal TanggalAwal(Date()), TanggalAwal()

FUNCTION TanggalAwal
PARAMETERS _xtglnya
IF VARTYPE(_xtglnya)<>"D"
        _xtglnya=DATE()      && Boleh juga diberi nilai return CTOD("")
ENDIF
RETURN _xtglnya-DAY(_xtglnya)+1