Kamis, Mei 22, 2008

Format Hari

Clear
* Cara 1:
? Iif(Dow(Date())=2,"Senen, ",Iif(Dow(Date())=3,"Selasa, ",Iif(Dow(Date())=4,"Rabu, ",Iif(Dow(Date())=5,"Kamis, ",Iif(Dow(Date())=6,"Jum'at, ",;
Iif(Dow(Date())=7,"Sabtu, ","Minggu, "))))))+Substr(Dtos(Date()),7,2)+"-"+Substr(Cmonth(Date()),1,3)+"-"+Substr(Dtos(Date()),1,4)

* Cara 2:
nHr=Dow(Date())
cHi=Alltrim(Substr("MingguSenin SelasaRabu Kamis Jum'atSabtu",(nHr*6)-5,6))
nBl=Month(Date())
cBl=Alltrim(Substr("Januari Februari Maret April Mei Juni Juli Agustus SeptemberOktober November Desember ",nBl*9-8,9))
cTgl=cHi+", "+Substr(Dtos(Date()),7,2)+"-"+cBl+"-"+Substr(Dtos(Date()),1,4)
? cTgl