Hari ini gue lagi cari-cari tentang gimana caranya mengubah angka kedalam bentuk uang. Misal didatabase ada nilai 10000. Nah bagaimana caranya mengubah nilai tersebut menjadi 10.000.
Setelah baca-baca di dokumentasi php (php.net) gue menemukan fungsi money_format dan number_format. Singkat cerita ketemulah fungsinya.
Setelah agak senggang gue coba buka-buka di dokumentasi php bagian number_format dan ternyata ada orang indonesia yang bikin dokumentasi juga. Script yang dia buat yaitu bagaimana mengkonversi nilai angka uang kedalam bentuk kalimat. Misal 10000 menjadi sepuluh ribu. Ini scriptnya:
here is the code to convert number to Indonesian text, this code has limitation as is number_format function. sorry for this.Menurut gue sih scriptnya biasa aja. Yang bikin ajib tuh ternyata ada orang indonesia yang sempet-sempetin bikin dokumentasinya. Gileeee.
/*
* Created : Iwan Sapoetra - Jun 13, 2008
* Project : Web
* Package : cgaf
*
*/
function terbilang( $num ,$dec=4){
$stext = array(
"Nol",
"Satu",
"Dua",
"Tiga",
"Empat",
"Lima",
"Enam",
"Tujuh",
"Delapan",
"Sembilan",
"Sepuluh",
"Sebelas"
);
$say = array(
"Ribu",
"Juta",
"Milyar",
"Triliun",
"Biliun", // remember limitation of float
"--apaan---" ///setelah biliun namanya apa?
);
$w = "";
if ($num <0 ) {
$w = "Minus ";
//make positive
$num *= -1;
}
$snum = number_format($num,$dec,",",".");
die($snum);
$strnum = explode(".",substr($snum,0,strrpos($snum,",")));
//parse decimalnya
$koma = substr($snum,strrpos($snum,",")+1);
$isone = substr($num,0,1) ==1;
if (count($strnum)==1) {
$num = $strnum[0];
switch (strlen($num)) {
case 1:
case 2:
if (!isset($stext[$strnum[0]])){
if($num<19){
$w .=$stext[substr($num,1)]." Belas";
}else{
$w .= $stext[substr($num,0,1)]." Puluh ".
(intval(substr($num,1))==0 ? "" : $stext[substr($num,1)]);
}
}else{
$w .= $stext[$strnum[0]];
}
break;
case 3:
$w .= ($isone ? "Seratus" : terbilang(substr($num,0,1)) .
" Ratus").
" ".(intval(substr($num,1))==0 ? "" : terbilang(substr($num,1)));
break;
case 4:
$w .= ($isone ? "Seribu" : terbilang(substr($num,0,1)) .
" Ribu").
" ".(intval(substr($num,1))==0 ? "" : terbilang(substr($num,1)));
break;
default:
break;
}
}else{
$text = $say[count($strnum)-2];
$w = ($isone && strlen($strnum[0])==1 && count($strnum) <=3? "Se".strtolower($text) : terbilang($strnum[0]).' '.$text);
array_shift($strnum);
$i =count($strnum)-2;
foreach ($strnum as $k=>$v) {
if (intval($v)) {
$w.= ' '.terbilang($v).' '.($i >=0 ? $say[$i] : "");
}
$i--;
}
}
$w = trim($w);
if ($dec = intval($koma)) {
$w .= " Koma ". terbilang($koma);
}
return trim($w);
}
//example
echo terbilang(999999999999)."\n";
/**
* result : Sembilan Ratus Sembilan Puluh Sembilan Milyar Sembilan Ratus Sembilan Puluh Sembilan Juta Sembilan Ratus Sembilan Puluh Sembilan Ribu Sembilan Ratus Sembilan Puluh Sembilan
*/
echo terbilang(9999999999999999);
/**
* todo : fix this bug pleasese
* problem : number_format(9999999999999999) <--- 10.000.000.000.000.000,0000
* Result : Sepuluh Biliun
*/
Salut deh.
