Thanks,
ibrahim

Thanks,
Ibrahim

thx

Sumber code diatas :
http://ibrahim.burhan.biz/2007/02/13/oracle-package-untuk-fungsi-terbilang-repost/

##Fun :terbilang.fnc
##Desc :Untuk mengkonversi nilai number menjadi terbilang
##Date :May-2007
##Sumber :sumber code ini didapat dari
http://ibrahim.burhan.biz/2007/02/13/oracle-package-untuk-fungsi-terbilang-repost/

Posted in :.Oracle PL/SQL | Edit| 4 Comments »

CREATE OR REPLACE FUNCTION terbilang(nilai VARCHAR2)
RETURN VARCHAR2 IS
km NUMBER;
tt NUMBER;
satu VARCHAR2(20);
dua VARCHAR2(5);
dum VARCHAR2(1);
dum2 VARCHAR2(1);
atr VARCHAR2(20);
back NUMBER;
idn NUMBER;
total VARCHAR2(600);
total1 VARCHAR2(500);
total2 VARCHAR2(100);
BEGIN
km := 0;
tt := 0;
dum2 := ”;
atr := ”;
total := ”;
total1 := ”;
total2 := ”;
back := 0;
idn := 0;

FOR i IN 1..LENGTH(nilai)
LOOP
dum := SUBSTR(nilai,i,1);
IF dum != ‘,’ AND dum != ‘.’ AND tt = 0 THEN
satu := satu || dum;
END IF;
IF dum != ‘,’ AND dum != ‘.’ AND tt = 1 THEN
dua := dua || dum;
END IF;
IF dum = ‘,’ THEN
km := km + 1;
END IF;
IF dum = ‘.’ THEN
tt := 1;
END IF;
END LOOP;

back := LENGTH(satu);
FOR i IN 1..LENGTH(satu)
LOOP
idn := idn + 1;
dum := SUBSTR(satu,idn,1);
IF dum = ‘1′ THEN
atr := ’se’;
IF LENGTH(satu) > 4 AND back = 4 THEN
atr := ‘Satu ‘;
END IF;
IF back = 1 OR back = 7 OR back = 10 OR back
= 13 THEN
atr := ‘Satu ‘;
END IF;
IF back = 2 OR back = 5 OR back = 8 OR back
= 11 THEN
dum2 :=SUBSTR(satu,(idn+1),1);
IF dum2 = ‘0′ THEN
atr := ‘Sepuluh ‘;
END IF;
IF dum2 = ‘1′ THEN
atr := ‘Sebelas ‘;
END IF;
IF dum2 = ‘2′ THEN
atr := ‘Dua belas ‘;
END IF;
IF dum2 = ‘3′ THEN
atr := ‘Tiga belas ‘;
END IF;
IF dum2 = ‘4′ THEN
atr := ‘Empat belas ‘;
END IF;
IF dum2 = ‘5′ THEN
atr := ‘Lima belas ‘;
END IF;
IF dum2 = ‘6′ THEN
atr := ‘Enam belas ‘;
END IF;
IF dum2 = ‘7′ THEN
atr := ‘Tujuh belas ‘;
END IF;
IF dum2 = ‘8′ THEN
atr := ‘Delapan belas ‘;
END IF;
IF dum2 = ‘9′ THEN
atr := ‘Sembilan belas ‘;
END IF;
back := back – 1;
idn := idn + 1;
END IF;
END IF;
IF dum = ‘2′ THEN
atr := ‘Dua ‘;
END IF;
IF dum = ‘3′ THEN
atr := ‘Tiga ‘;
END IF;
IF dum = ‘4′ THEN
atr := ‘Empat ‘;
END IF;
IF dum = ‘5′THEN
atr := ‘Lima ‘;
END IF;
IF dum = ‘6′ THEN
atr := ‘Enam ‘;
END IF;
IF dum = ‘7′ THEN
atr := ‘Tujuh ‘;
END IF;
IF dum = ‘8′ THEN
atr := ‘Delapan ‘;
END IF;
IF dum = ‘9′ THEN
atr := ‘Sembilan ‘;
END IF;
IF dum = ‘0′ THEN
atr := ”;
END IF;
back := back – 1;
IF back = 12 AND
(dum != ‘0′ OR
SUBSTR(satu,(idn-1),1) != ‘0′
OR SUBSTR(satu,(idn-2),1) != ‘0′) THEN
atr := atr || ‘trilyun ‘;
END IF;
IF back = 9 AND
(dum != ‘0′ OR
SUBSTR(satu,(idn-1),1) != ‘0′
OR SUBSTR(satu,(idn-2),1) != ‘0′) THEN
atr := atr || ‘milyar ‘;
END IF;
IF back = 6 AND
(dum != ‘0′ OR
SUBSTR(satu,(idn-1),1) != ‘0′
OR SUBSTR(satu,(idn-2),1) != ‘0′) THEN
atr:= atr || ‘juta ‘;
END IF;
IF back = 3 AND
(dum != ‘0′ OR
SUBSTR(satu,(idn-1),1) != ‘0′
OR SUBSTR(satu,(idn-2),1) != ‘0′) THEN
atr := atr || ‘ribu ‘;
END IF;
IF (back = 2 OR back = 5 OR back = 8 OR back =
11) AND dum != ‘0′ THEN
atr := atr || ‘ratus ‘;
END IF;
IF (back = 1 OR back = 4 OR back = 7 OR back =
10) AND dum != ‘0′ THEN
atr := atr || ‘puluh ‘;
END IF;
total1 := total1 || atr;
EXIT WHEN back = 0;
END LOOP;

IF LENGTH(dua) > 0 THEN
FOR i IN 1..LENGTH(dua)
LOOP
dum := SUBSTR(dua,i,1);
IF dum = ‘1′ THEN
atr := ‘Satu ‘;
END IF;
IF dum = ‘2′ THEN
atr := ‘Dua ‘;
END IF;
IF dum = ‘3′ THEN
atr := ‘Tiga ‘;
END IF;
IF dum = ‘4′ THEN
atr := ‘Empat ‘;
END IF;
IF dum = ‘5′THEN
atr := ‘Lima ‘;
END IF;
IF dum = ‘6′ THEN
atr := ‘Enam ‘;
END IF;
IF dum = ‘7′ THEN
atr := ‘Tujuh ‘;
END IF;
IF dum = ‘8′ THEN
atr := ‘Delapan ‘;
END IF;
IF dum = ‘9′ THEN
atr := ‘Sembilan ‘;
END IF;
IF dum = ‘0′ THEN
atr := ‘Nol ‘;
END IF;
total2 := total2 || atr;
END LOOP;
END IF;

IF LENGTH(dua) > 0 THEN
total := total1 || ‘koma ‘ || total2;
ELSE
total := total1;
END IF;

RETURN(total);
END;
/

Thank’s
mudah2an bisa membantu…!