FUNCTION ANGKAKOMA(XANGKA,NDES) Local MANGKA, MPENUH, MDES1, MDES2, MDES3, MDES4 NDES=Iif(Pcount()=1,2,4) Do Case Case NDES=2 MANGKA=Alltrim(Transform(XANGKA,'999999999999.99')) Do Case Case XANGKA=0 Return ("Nol") Case XANGKA>0 MDES1=Alltrim(Konversi(Val(Left(Right(MANGKA,2),1)))) MDES2=Alltrim(Konversi(Val(Right(Right(MANGKA,2),1)))) MPENUH=Alltrim(Konversi(XANGKA-Val(Right(MANGKA,2)))) Return (MPENUH+" Koma "+MDES1+" "+MDES2) Endcase Case NDES=4 MANGKA=Alltrim(Transform(XANGKA,'999999999999.9999')) Do Case Case XANGKA=0 Return "Nol" Case XANGKA>0 MDES1=Alltrim(Konversi(Val(Left(Right(MANGKA,4),1)))) MDES2=Alltrim(Konversi(Val(Substr(Right(MANGKA,4),2,1)))) MDES3=Alltrim(Konversi(Val(Substr(Right(MANGKA,4),3,1)))) MDES4=Alltrim(Konversi(Val(Substr(Right(MANGKA,4),3,1)))) MPENUH=Alltrim(Konversi(XANGKA-Val(Right(MANGKA,4)))) Return (MPENUH+" Koma "+MDES1+" "+MDES2+" "+MDES3+" "+MDES4) Endcase Endcase Return "" ENDFUNC