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
- Mencetak Banyaknya jumlah halaman di QuickReport
- Dynamic ODBC untuk MySQL dan Ms Access
- Format Indonesia untuk angka, dll.
- Aplikasi Modern Dengan Bahasa Pascal
- Tentang Turbo Pascal
- Insert/Update image into DB via SQL-Command
- Kill Window Process
- Klasifikasi optical digit dengan artificial neural network
- Yang Tidak Bisa Dilakukan Turbo Pascal #3
- SELAMAT ULTAH KE-25, DELPHI!
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago