FUNCTION tgl_ina(tgl as Date)
RETURN nmhr_bln(tgl,.t.)+[, ]+TRANSFORM(DAY(tgl),'99 ')+ALLTRIM(nmhr_bln(tgl,.f.))+TRANSFORM(YEAR(tgl),' 9999')

FUNCTION nmhr_bln(tgl as Date,mz as Boolean)
LOCAL lcT
IF mz
	lcT=[MingguSenin SelasaRabu  Kamis Jumat Sabtu ]
ELSE
	lcT=[Januari  Pebruari Maret    April    Mei      Juni     Juli     Agustus  SeptemberOktober  Nopember Desember ]
ENDIF 
RETURN SUBSTR(lcT,iif(mz=.t.,6* DOW(tgl) - 5 ,9 * month(tgl) - 8),iif(mz=.t.,6,9))
ENDFUNC