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
- Backup Data Tabel Paradox
- Elips dengan kemiringan tertentu
- Cara mudah menambahkan angka nol '0' didepan sebuah nilai angka
- Tip compile di Lazarus ke target CPU 64 Bit (Mac Only)
- SayNumber
- Ubah ODBC (MS-Acess, MySQL, MS-SQL Server) dengan Delphi
- Lazarus Release 2.0.10
- Terbilang
- Konversi Rupiah ke Terbilang
- Random bilangan integer (n)
AI Forward

๐ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 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 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago