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