Ini caranya membuat angka menjadi kata-kata dalam bahasa indonesia.
Fungsi ditulis dengan function mySQL. Seharusnya bisa diconvert dengan mudah ke Database server lain.
Fungsi ditulis dengan function mySQL. Seharusnya bisa diconvert dengan mudah ke Database server lain.
CREATE FUNCTION SayNumber(inputnumber int) RETURNS varchar(100) BEGIN DECLARE number, numstr varchar(100); SET number=inputnumber; SET numstr=' '; WHILE LENGTH(number) >= 1 DO IF LEFT(number,1)= 2 THEN SET numstr=CONCAT(numstr,'Dua ' ); END IF; IF LEFT(number,1)= 3 THEN SET numstr=CONCAT(numstr,'Tiga ' ); END IF; IF LEFT(number,1)= 4 THEN SET numstr=CONCAT(numstr,'Empat ' ); END IF; IF LEFT(number,1)= 5 THEN SET numstr=CONCAT(numstr,'Lima ' ); END IF; IF LEFT(number,1)= 6 THEN SET numstr=CONCAT(numstr,'Enam ' );END IF; IF LEFT(number,1)= 7 THEN SET numstr=CONCAT(numstr,'Tujuh ' ); END IF; IF LEFT(number,1)= 8 THEN SET numstr=CONCAT(numstr,'Delapan ' ); END IF; IF LEFT(number,1)= 9 THEN SET numstr=CONCAT(numstr,'Sembilan ' ); END IF; IF LEFT(number,1 )=1 THEN IF LENGTH(number)=4 THEN SET numstr=CONCAT(numstr,'Seribu ' ); END IF; IF LENGTH(number)=3 THEN SET numstr=CONCAT(numstr,'Seratus ' ); END IF; IF LENGTH(number)=2 THEN SET numstr=CONCAT(numstr,'Sepuluh ' ); END IF; IF LENGTH(number)=1 THEN SET numstr=CONCAT(numstr,'Satu ' ); END IF; END IF; IF LEFT(number,1)>1 THEN IF LENGTH(number)=4 THEN SET numstr=CONCAT(numstr,'Ribu ' ); END IF; IF LENGTH(number)=3 THEN SET numstr=CONCAT(numstr,'Ratus ' ); END IF; IF LENGTH(number)=2 THEN SET numstr=CONCAT(numstr,'Puluh ' ); END IF; END IF; SET number=RIGHT(number,(LENGTH(number)-1 )); END WHILE; RETURN numstr; END
Random Articles
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
 - procedure SendKey
 - New Zeos 6.6.3 Stable
 - Tulis/Baca "string" di file .INI
 - Menggambar Kurva (Bezier)
 - Lazarus Release 3.2
 - Melarang Alt+F4 dan Alt+Tab
 - Selamat Menunaikan Ibadah Suci Ramadhan 1428 H, Mohon Maaf Lahir Bathin
 - Mencegah Flicker dan Mempercepat Operasi
 - Membaca MAC-Address
 
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
 - Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago