Fungsi Terbilang dengan PHP

Mengkonversi angka menjadi teks bilangan

Minggu Kliwon, 12 Februari 2006

Tidak banyak yang perlu dikomentari di sini, karena fungsi ini tinggal pakai saja :D

Fungsi ini sebenarnya berasal dari Visual Basic, yang aku dapatkan di sebuah mailing list. Aku lupa nama milisnya, karena udah lama dan aku simpan dalam file teks :(
Buat pembuatnya, makasih ya, dan maaf kodenya aku rubah ke PHP dan aku sebar-sebarkan :D

Silakan copy + paste kode di bawah ini, lalu simpan ke file PHP.

<html> <head> <title>Fungsi terbilang</title> </head> <body> <form action="terbilang.php" method="post"> Masukkan angka: <input type="text" value="" name="angka"> <input type="submit" value="Send"> </form> <pre> <?php $angka = isset($_POST['angka']) ? $_POST['angka'] : "0"; if ($angka) { echo number_format($angka, 0) . "<br>"; echo ucwords(Terbilang($angka)); } ?> </pre> </body> </html> <?php function Terbilang($x) { $abil = array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"); if ($x < 12) return " " . $abil[$x]; elseif ($x < 20) return Terbilang($x - 10) . "belas"; elseif ($x < 100) return Terbilang($x / 10) . " puluh" . Terbilang($x % 10); elseif ($x < 200) return " seratus" . Terbilang($x - 100); elseif ($x < 1000) return Terbilang($x / 100) . " ratus" . Terbilang($x % 100); elseif ($x < 2000) return " seribu" . Terbilang($x - 1000); elseif ($x < 1000000) return Terbilang($x / 1000) . " ribu" . Terbilang($x % 1000); elseif ($x < 1000000000) return Terbilang($x / 1000000) . " juta" . Terbilang($x % 1000000); } ?>

Ok, selamat koding.

Daftar Komentar

dody

dody_anto@... Selasa Wage, 2 Mei 2006

Terima kasih. kode ini sangat membantu. oiya, saya tidak melihat poling untuk artikel ini.

Aryo Sanjaya

aryo.sanjaya@... Selasa Wage, 2 Mei 2006

Sama-sama, dody, Polling tentang apa ya? Di web ini artikelnya tidak mengandung polling. Atau perlu ditambahkan? :D

Solikin

Solikins77@... Rabu Kliwon, 14 Maret 2007

Halo semuanya??? sehat2 aja kan?? saya ucapkan selamat bergabung dibengkel program.kabar mas aryo gimana ni..., makasih ya dah bantu aku waktu bt skripsi kemaren. aku sekarang dah kerja, ya lumayan u/ berkembang selanjutnya. disini kalian semua bisa bertukar fikiran, ilmu seputr komputer, program dan lain2 ok, thanks sobat. jika ingin balas sekarang ya.

etjie

etjiedesign@... Selasa Wage, 26 Juni 2007

Wah, function yang anda buat sangat menarik sekali dan sangat membantu saya dalam mengembangkan aplikasi akutansi yang memang mengharuskan angka dapat ditampilkan dalam bentuk terbilang. Dan saya coba menambahkan beberapa baris kode agar bisa mengkonversikan jika angka adalah milyar. Semoga mas Aryo Sanjaya tidak keberatan. Nice work.

doris

d.heryanto@... Selasa Pon, 14 Agustus 2007

ada tidak, function terbilang tetapi dalam format bahasa inggris?

Rendra

renstanford@... Rabu Pon, 26 Maret 2008

Gimana kalo mau pake milyard.. saya masih awam nih bisa tolong dibantuin y. makasih y.

Irrawady

irrawady_mail@... Kamis Wage, 27 Maret 2008

bagaimana kalau terbilangnya dalam bahasa inggris? bisa kasi sourcecode-nya ga???

Handri

sasuke_nixart@... Kamis Kliwon, 22 Mei 2008

wah..mas aryo makasih bgt neh..perlu bgt neh saya buat listing code ini.. untung saya dapet..jadi buat nambah referensi program saya.. oke mas..salam kenal tapi koq postnya udah lama2..ya

mamet

penting_ga@... Selasa Wage, 10 Juni 2008

thank you bos.

Sandy

ksandy888@... Rabu Kliwon, 11 Juni 2008

tolong jelaskan procedure tentang pembuatan vb text menjadi terbilang,soalnya saya gak mengerti karena saya baru belajar,tks b 4

URL: http://www.bengkelprogram.com/data-artikel-226.0.bps