[linux-programming] Terbilang (was Re: [linux-programming] Tanya tentang kwitansi)

[PD]

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