This code will convert number into Indonesian words.
Download
View Source (print view)
Rating : 4.7
Views : 347
<?
//
// n2c.php
//
// Copyright (c) forever by Danang Suharno [cinoban@yahoo.com]
// All rights reserved - International Copyiright Secured
//
// Algorithm and Design by Danang Suharno [cinoban@yahoo.com]
// 27 April 2001 10:05AM
//
// This is my original algorithm and I have never seen this one before.
// You can use this algorithm anyway you want and I cannot give you
// any warranty or something like that.
//
// You must accept and agree then respect to the International
// Copyright Rules and Laws before modifying or using this software.
//
//
// Any Comments and Suggestions would be greatly appreciated.
//
//
//
//
//
function cMilyar( $strAngka )
{
$nLenAngka = strlen($strAngka);
$nHasil = floor($nLenAngka / 3);
$nSisa = $nLenAngka - ($nHasil*3);
if( $nLenAngka <= 9) return(cJutaan($strAngka));
if( $nSisa == 0 ) $nSisa = 3;
$cRetVal = num2char(substr($strAngka, 0, $nSisa), 1, $strAngka);
if( $cRetVal == '' )
{
if( substr($strAngka, 0, $nSisa) != '000' )
$cRetVal = $cRetVal.'milyar ';
}
else
{
$cRetVal = $cRetVal.'milyar ';
}
$cRetVal = $cRetVal.cJutaan(substr($strAngka, strlen($strAngka)-9, 9));
return $cRetVal;
}
//
//
//
function cJutaan( $strAngka )
{
$nLenAngka = strlen($strAngka);
$nHasil = floor($nLenAngka / 3);
$nSisa = $nLenAngka - ($nHasil*3);
if( $nLenAngka <= 6) return(cRibuan($strAngka));
if( $nSisa == 0 ) $nSisa = 3;
$cRetVal = num2char(substr($strAngka, 0, $nSisa), 1, $strAngka);
if( $cRetVal == '' )
{
if( substr($strAngka, 0, $nSisa) != '000' )
$cRetVal = $cRetVal.'juta ';
}
else
{
$cRetVal = $cRetVal.'juta ';
}
$cRetVal = $cRetVal.cRibuan(substr($strAngka, strlen($strAngka)-6, 6));
return $cRetVal;
}
//
//
//
function cRibuan( $strAngka )
{
$nLenAngka = strlen($strAngka);
$nHasil = floor($nLenAngka / 3);
$nSisa = $nLenAngka - ($nHasil*3);
if( $nLenAngka <= 3) return(num2char($strAngka, 0, $strAngka));
if( $nSisa == 0 ) $nSisa = 3;
$cRetVal = num2char(substr($strAngka, 0, $nSisa), 0, $strAngka);
if( $cRetVal == '' )
{
if( substr($strAngka, 0, $nSisa) != '000' )
$cRetVal = $cRetVal.'ribu ';
}
else
{
$cRetVal = $cRetVal.'ribu ';
}
$cRetVal = $cRetVal.num2char(substr($strAngka, strlen($strAngka)-3, 3), 1, $strAngka);
return $cRetVal;
}
//
//
//
function num2char( $strNumber, $boolJuta, $strAsli )
{
$acKataKata = array("", "se", "dua", "tiga ", "empat ", "lima ", "enam ",
"tujuh ", "delapan ", "sembilan ");
$strString = $strNumber;
$iPanjangStr = 0;
$strKataRatus = 'z';
if( strlen( $strString ) == 3 )
{
$nAngkaRatus = intval( substr($strString, 0, 1) );
if( $nAngkaRatus == 0)
{
$strRatus = '';
}
else
{
$strRatus = 'ratus ';
}
$strKataRatus = $acKataKata[$nAngkaRatus].$strRatus;
$strString = substr($strString, strlen($strString)-2, 2);
}
$strKataPuluh = 'z';
$iPanjangStr = strlen($strString);
if( $iPanjangStr <= 2 )
{
$nAngkaL = intval(substr($strString, 0, 1));
$nAngkaR = intval(substr($strString, strlen($strString)-1, 1));
if( $nAngkaL == 0)
{
$strPuluh = '';
}
else
{
$strPuluh = 'puluh ';
}
if( $nAngkaL > 0 )
{
if( $iPanjangStr == 2 )
{
if( ($nAngkaL == 1) && ($nAngkaR != 0) )
{
$strKataPuluh = $acKataKata[nAngkaR].'belas ';
}
else
{
if( $nAngkaR == 1 )
{
$strTemp = 'satu ';
}
else
{
$strTemp = $acKataKata[$nAngkaR];
}
$strKataPuluh = $acKataKata[$nAngkaL].$strPuluh.$strTemp;
}
}
}
if( $strKataPuluh == 'z' )
{
if( $nAngkaR == 1 )
{
echo "<br> strAsli = ".$strAsli;
if( ($boolJuta == 0) && (strlen($strAsli) > 1) )
{
$strTemp = 'se';
}
else
{
$strTemp = 'satu ';
}
}
else
{
$strTemp = $acKataKata[$nAngkaR];
}
$strKataPuluh = $strTemp;
}
}
if( $strKataRatus != 'z' )
{
$strRetVal = $strKataRatus;
}
else
{
$strRetVal = '';
}
$strRetVal = $strRetVal.$strKataPuluh;
return $strRetVal;
}
//
//
//
function n2c( $nAngkaNumeric )
{
$stringAngka = $nAngkaNumeric;
return cMilyar( $stringAngka )." ".$stringAngka;
}
?>
security, snnap_ss, salars77, paper_without_wood, guest, enfactuation, rent a car, download, regirstration form, php_snips, fedex, call php', userstatusinonline, php_script"_class="neww"_target="_blank"_title="im_neuen, best ide, php script" class="neww" target="_b..., forum, p t test paired, php_tools, href php function, utfraw