Sorry.. menjawab sendiri :)
udah ketemu.. dengan pake str_replace.
PD
On 1/3/2009, "PD" <p...@ranahminang.net> wrote:
>P. Donny,
>
>Thx untuk URL yang diberikan.
>
>mengenai terbilang, kemarin saya sudah buat tapi terkendala dengan kata
>"seribu" dan "satu ribu"
>
>Mungkin ada clue cara merubah kata satu ribu jadi seribu ?
>
>Code yg saya buat adalah sbb :
>function Terbilang($codeval) {
> if(strlen($codeval)<9) { $codeval =
>str_repeat("0",9-strlen($codeval)).$codeval; }
> //if(strlen($codeval)==3) { $result = TigaDigit($codeval); }
> //if(strlen($codeval)==6) { $result =
>TigaDigit(substr($codeval,0,3)).'Ribu
>'.TigaDigit(substr($codeval,3,3)); }
> //if(strlen($codeval)==9) { $result =
>TigaDigit(substr($codeval,0,3)).'Juta
>'.TigaDigit(substr($codeval,3,3)).'Ribu '.TigaD
>igit(substr($codeval,6,3)); }
> for($i=0;$i<9;$i=$i+3) {
> $nilai=substr($codeval,$i,3);
> $result .= TigaDigit($nilai);
> if($i==0) { $result .= 'Juta '; }
> if($i==3) { $result .= 'Ribu '; }
> if($i==6) { $result .= 'Rupiah.'; }
> }
> return $result;
>}
>
>function TigaDigit($codeval) {
> if(strlen($codeval)<3) { $codeval =
>str_repeat("0",3-strlen($codeval)).$codeval; }
> $Angka = array('','Satu ','Dua ','Tiga ','Empat ','Lima
>','Enam ','Tujuh ','Delapan ','Sembilan ','Sepuluh
>','Sebelas ','Du
>a Belas ','Tiga Belas ','Empat Belas ','Lima Belas ','Enam Belas
>','Tujuh Belas ','Sembilan Belas ');
> if($codeval>0) {
> $LastTwo = substr($codeval,1,2);
> if($LastTwo<20) {
> if($LastTwo<10) {
> $LastTwo = substr($LastTwo,1,1);
> $tLastTwo = $Angka[$LastTwo];
> } else {
> $tLastTwo = $Angka[$LastTwo];
> }
> } else {
> $DigitOne = substr($LastTwo,0,1);
> $DigitTwo = substr($LastTwo,1,1);
> $tLastTwo = $Angka[$DigitOne].'Puluh '.$Angka[$DigitTwo];
> }
> $DigitThree = substr($codeval,0,1);
> if($DigitThree==1) { $tDigitThree = 'Seratus '; }
>elseif($DigitThree>1) { $tDigitThree = $Angka[$DigitThree].'Ratus '; }
>el
>se { $tDigitThree=''; }
> $Result = $tDigitThree.$tLastTwo;
> } else { $Result=''; }
> return $Result;
>}
>
>PD
>On 1/3/2009, "Donny Kurnia" <donnykur...@gmail.com> wrote:
>>Fungsi terbilang buatan saya ada di:
>>http://pastie.org/351579
>>
>>--
>>Donny Kurnia
>>http://hantulab.blogspot.com
>>http://www.plurk.com/user/donnykurnia
>>
>>
>>--
>>Berhenti langganan: linux-programming-unsubscr...@linux.or.id
>>Arsip dan info: http://linux.or.id/milis
>>
>>
>>
>
>--
>Berhenti langganan: linux-programming-unsubscr...@linux.or.id
>Arsip dan info: http://linux.or.id/milis
>
>
>
--
Berhenti langganan: linux-programming-unsubscr...@linux.or.id
Arsip dan info: http://linux.or.id/milis
