Money Speller Function Sybase SA Bahasa Indonesia

Hallo, sekian lama akhirnya bisa ngeblog lagi setelah vakum dari 2012 kali ini saya akan mencoba lagi berbagi dengan kawan-kawan. Ok langsung saja untuk kali ini, saya ingin berbagi bagaimana membuat fungsi untuk money speller, lebih tepatnya sih integer speller, udah googling kesana kemari, ketemunya cuma yang versi SQl aja, kali ini ane share untuk yang versi sybase SA nya ya

 CREATE FUNCTION dbo.MoneySpeller (in the_amount money)   
 RETURNS varchar(250)  
 BEGIN  
 DECLARE divisor     bigint;  
 DECLARE     large_amount     money;  
 DECLARE     tiny_amount     money;  
 DECLARE     dividen     money;  
 DECLARE     dummy          money;  
 DECLARE     the_word     varchar(250);  
 DECLARE     weight     varchar(100);  
 DECLARE     unit          varchar(30);  
 DECLARE     follower     varchar(50);  
 DECLARE     prefix     varchar(10);  
 DECLARE     sufix          varchar(10);  
 --SET NOCOUNT ON  
 SET the_word = '';  
 SET large_amount = FLOOR(ABS(the_amount) );  
 SET tiny_amount = ROUND((ABS(the_amount) - large_amount ) * 100.00,0);  
 SET divisor = 1000000000000.00;  
 IF large_amount > divisor * 1000.00 then  
      RETURN 'OUT OF RANGE' endif;  
 WHILE divisor >= 1  
 LOOP       
      SET dividen = FLOOR(large_amount / divisor);  
      SET large_amount = CONVERT(bigint,large_amount) % divisor;  
      SET unit = '';  
      IF dividen > 0.00 then  
           SET unit=(CASE divisor  
                WHEN 1000000000000.00 THEN 'TRILYUN '  
                WHEN 1000000000.00 THEN 'MILYAR '                 
                WHEN 1000000.00 THEN 'JUTA '                      
                WHEN 1000.00 THEN 'RIBU '  
                ELSE unit  
           END ) endif;  
      SET weight = ''     ;  
      SET dummy = dividen;  
      IF dummy >= 100.00 then  
           SET weight = (CASE FLOOR(dummy / 100.00)  
                WHEN 1 THEN 'SE'  
                WHEN 2 THEN 'DUA '  
                WHEN 3 THEN 'TIGA '  
                WHEN 4 THEN 'EMPAT '  
                WHEN 5 THEN 'LIMA '  
                WHEN 6 THEN 'ENAM '  
                WHEN 7 THEN 'TUJUH '  
                WHEN 8 THEN 'DELAPAN '  
                ELSE 'SEMBILAN ' END ) + 'RATUS ' endif;  
      SET dummy = CONVERT(bigint,dividen) % 100;  
      IF dummy < 10.00 then  
           IF dummy = 1.00 AND unit = 'RIBU' then  
                IF dividen=dummy then  
                     SET weight = weight + 'SE';  
                ELSE  
                     SET weight = weight + 'SATU ' endif;  
           ELSE  
           IF dummy > 0.00 then  
                SET weight = weight + (CASE dummy  
                     WHEN 1 THEN 'SATU '  
                     WHEN 2 THEN 'DUA '  
                     WHEN 3 THEN 'TIGA '  
                     WHEN 4 THEN 'EMPAT '  
                     WHEN 5 THEN 'LIMA '  
                     WHEN 6 THEN 'ENAM '  
                     WHEN 7 THEN 'TUJUH '  
                     WHEN 8 THEN 'DELAPAN '  
                     ELSE 'SEMBILAN ' END) endif endif;  
      ELSE  
      IF dummy BETWEEN 11 AND 19 then  
           SET weight = weight + (CASE CONVERT(bigint,dummy) % 10   
                WHEN 1 THEN 'SE'  
                WHEN 2 THEN 'DUA '  
                WHEN 3 THEN 'TIGA '  
                WHEN 4 THEN 'EMPAT '  
                WHEN 5 THEN 'LIMA '  
                WHEN 6 THEN 'ENAM '  
                WHEN 7 THEN 'TUJUH '  
                WHEN 8 THEN 'DELAPAN '  
                ELSE 'SEMBILAN ' END ) + 'BELAS ';  
      ELSE  
           SET weight = weight + (CASE FLOOR(dummy / 10)   
                WHEN 1 THEN 'SE'  
                WHEN 2 THEN 'DUA '  
                WHEN 3 THEN 'TIGA '  
                WHEN 4 THEN 'EMPAT '  
                WHEN 5 THEN 'LIMA '  
                WHEN 6 THEN 'ENAM '  
                WHEN 7 THEN 'TUJUH '  
                WHEN 8 THEN 'DELAPAN '  
                ELSE 'SEMBILAN ' END ) + 'PULUH ';  
           IF CONVERT(bigint,dummy) % 10 > 0 then  
                SET weight = weight + (CASE CONVERT(bigint,dummy) % 10   
                     WHEN 1 THEN 'SATU '  
                     WHEN 2 THEN 'DUA '  
                     WHEN 3 THEN 'TIGA '  
                     WHEN 4 THEN 'EMPAT '  
                     WHEN 5 THEN 'LIMA '  
                     WHEN 6 THEN 'ENAM '  
                     WHEN 7 THEN 'TUJUH '  
                     WHEN 8 THEN 'DELAPAN '  
                     ELSE 'SEMBILAN ' END ) endif;  
      ENDif endif;  
      SET the_word = the_word + weight + unit;  
      SET divisor = divisor / 1000.00;  
 END loop;  
 IF FLOOR(the_amount) = 0.00 then  
      SET the_word = 'NOL ' endif;  
 SET follower = '';  
 IF tiny_amount < 10.00  
 then       
      IF tiny_amount > 0.00 then  
           SET follower = 'KOMA NOL ' + (CASE tiny_amount  
                WHEN 1 THEN 'SATU '  
                WHEN 2 THEN 'DUA '  
                WHEN 3 THEN 'TIGA '  
                WHEN 4 THEN 'EMPAT '  
                WHEN 5 THEN 'LIMA '  
                WHEN 6 THEN 'ENAM '  
                WHEN 7 THEN 'TUJUH '  
                WHEN 8 THEN 'DELAPAN '  
                ELSE 'SEMBILAN ' END) endif;  
 else   
      SET follower = 'KOMA ' + (CASE FLOOR(tiny_amount / 10.00)  
                WHEN 1 THEN 'SATU '  
                WHEN 2 THEN 'DUA '  
                WHEN 3 THEN 'TIGA '  
                WHEN 4 THEN 'EMPAT '  
                WHEN 5 THEN 'LIMA '  
                WHEN 6 THEN 'ENAM '  
                WHEN 7 THEN 'TUJUH '  
                WHEN 8 THEN 'DELAPAN '  
                ELSE 'SEMBILAN ' END);  
      IF CONVERT(bigint,tiny_amount) % 10 > 0 then  
           SET follower = follower + (CASE CONVERT(bigint,tiny_amount) % 10  
                WHEN 1 THEN 'SATU '  
                WHEN 2 THEN 'DUA '  
                WHEN 3 THEN 'TIGA '  
                WHEN 4 THEN 'EMPAT '  
                WHEN 5 THEN 'LIMA '  
                WHEN 6 THEN 'ENAM '  
                WHEN 7 THEN 'TUJUH '  
                WHEN 8 THEN 'DELAPAN '  
                ELSE 'SEMBILAN ' END) endif;  
 endif;   
 SET the_word = the_word + follower;  
 IF the_amount < 0.00 then  
      SET the_word = 'MINUS ' + the_word endif;  
 RETURN trim(the_word)  
 END  

Contoh pemanggilan

 SELECT dbo.MoneySpeller(12512512312)  

Hasilnya

 DUA BELAS RIBU EMPAT RATUS DUA BELAS  

WordCap Function Sybase SA

Oke, setelah kita membuat fungsi money speller, yang ternyata semuanya menggunakan UPPER CASE, sekarang pasti muncul pertanyaan, bagaimana mengatur format tulisan agar terlihat rapih, pada awalnya gw sempat bingung, di database lain ada fungsi world cap yang bisa mengatur agar hanya huruf pertama pada setiap kata yang besar, tetapi kenapa tidak bisa di Sybase SA, jadi saya coba buatkan fungsi wordcap tersebut di Sybase SA, berikut fungsinya

 CREATE FUNCTION dbo.WordCap(in str VARCHAR(255) ) RETURNS VARCHAR(255)  
 BEGIN   
  DECLARE c CHAR(1);   
  DECLARE s VARCHAR(255);   
  DECLARE i INTeger;   
  DECLARE bool INT;   
  DECLARE punct CHAR(1);  
 set i = 1;  
 set bool = 1;  
 set punct = ' ';  
  SET s = LCASE( str );   
  WHILE i < LENGTH( str )   
      LOOP  
     SET c = SUBSTRING( s, i, 1 );   
      IF LOCATE( c, punct ) > 0 THEN   
           SET bool = 1;   
      ENDIF;  
      IF bool=1 THEN   
           IF c >= 'a' AND c <= 'z' THEN   
                SET s = LEFT(s,i-1) || UCASE(c) || SUBSTRING(s,i+1);   
                SET bool = 0;   
           ELSE IF c >= '0' AND c <= '9' THEN   
                  SET bool = 0;   
           ENDIF ENDIF;   
      ENDIF;   
      SET i = i+1;  
  END LOOP;   
  RETURN s;   
 END  

Contoh Penggunaan

 select dbo.WordCap('DUA BELAS RIBU EMPAT RATUS DUA BELAS')  

Hasilnya

 Dua Belas Ribu Empat Ratus Dua Belas