**mztolo 2005
**copy dan simpan function di bawah dg nama f_tgl.prg
**panjang lcTeks masing2 9 karakter include spasi
**set procedure to f_tgl
**? tanggal(date()) ; date() bisa di ganti dg field tanggal
**return value = karakter
FUNCTION tanggal
LPARAMETERS dTgl
local lcTeks,dTgl2,cTanggal
dTgl2=dTgl
lcTeks="Januari  Pebruari Maret    April    Mei      Juni     Juli     Agustus  SeptemberOktober  Nopember Desember " 
cTanggal=STR(DAY(dTgl2),2)+'-'+ALLTRIM(SUBSTR(lcTeks,IIF(month(dTgl2)=1,1,(9*(month(dTgl2)-1))),9))+'-'+STR(YEAR(dTgl2),4)
RETURN cTanggal