Menampilkan nama hari dan Pasaran

FUNCTION pasaran
LPARAMETERS dmz
local tgl_wage,tgl_cari,jml,modlima,hpas,hari,dino

SET DATE DMY
tgl_wage={^2002/07/07}
store 0 to jml,modlima
tgl_cari=dmz
jml=tgl_cari - tgl_wage
modlima=mod(jml,5)
hari=dow(tgl_cari)

do case
case hari=1
dino='Minggu'
case hari=2
dino='Senin'
case hari=3
dino='Selasa'
case hari=4
dino='Rabu'
case hari=5
dino='Kamis'
case hari=6
dino='Jumat'
case hari=7
dino='Sabtu'
endcase
do case
case modlima=0
hpas='&dino Wage'
case modlima=1
hpas='&dino Kliwon'
case modlima=2
hpas='&dino Legi'
case modlima=3
hpas='&dino Pahing'
case modlima=4
hpas='&dino Pon'
ENDCASE
RETURN hpas