Kwota słownie - gotowy skrypt, z prośbą o przetestowanie (obsługuje 1-10 do potęgi 45) Opcje

[ROMeeO]

Napisałem sobie funkcyjkę do obsługi dowolnej kwoty. Ta akurat obsługuje aż do septyliardów, czyli 10 do potęgi 45, ale można ją rozwinąć dowolnie.
Jakby ktoś chciał potestować, to bardzo proszę.
Kwotę zwraca w formacie:
1234,56 - jeden tysiąc dwieście trzydzieści cztery złote 56/100 gr.
grosze oczywiście można jeszcze dorobić słownie, ale mi akurat w takim formacie było potrzebne.

[PHP] pobierz, plaintext 
<?php
function slownie ($kw) {
 
$t_a = array('','sto','dwieście','trzysta','czterysta','pięćset','sześćset','siedemset','osiemset','dziewięćset');
$t_b = array('','dziesięć','dwadzieścia','trzydzieści','czterdzieści','pięćdziesiąt','sześćdziesiąt','siedemdziesiąt','osiemdziesiąt','dziewięćdziesiąt');
$t_c = array('','jeden','dwa','trzy','cztery','pięć','sześć','siedem','osiem','dziewięć');
$t_d = array('dziesięć','jedenaście','dwanaście','trzynaście','czternaście','piętnaście','szesnaście','siednaście','osiemnaście','dziewiętnaście');
 
$t_kw_15 = array('septyliard','septyliardów','septyliardy');
$t_kw_14 = array('septylion','septylionów','septyliony');
$t_kw_13 = array('sekstyliard','sekstyliardów','sekstyliardy');
$t_kw_12 = array('sekstylion','sekstylionów','sepstyliony');
$t_kw_11 = array('kwintyliard','kwintyliardów','kwintyliardy');
$t_kw_10 = array('kwintylion','kwintylionów','kwintyliony');
$t_kw_9 = array('kwadryliard','kwadryliardów','kwaryliardy');
$t_kw_8 = array('kwadrylion','kwadrylionów','kwadryliony');
$t_kw_7 = array('tryliard','tryliardów','tryliardy');
$t_kw_6 = array('trylion','trylionów','tryliony');
$t_kw_5 = array('biliard','biliardów','biliardy');
$t_kw_4 = array('bilion','bilionów','bilony');
$t_kw_3 = array('miliard','miliardów','miliardy');
$t_kw_2 = array('milion','milionów','miliony');
$t_kw_1 = array('tysiąc','tysięcy','tysiące');
$t_kw_0 = array('złoty','złotych','złote');
 
  if ($kw!='') {
	$kw=(substr_count($kw,',')==0) ? $kw.',00':$kw;
	$tmp=explode(",",$kw);
	$ln=strlen($tmp[0]);
	$tmp_a=($ln%3==0) ? (floor($ln/3)*3):((floor($ln/3)+1)*3);
	for($i = $ln; $i < $tmp_a; $i++) {
	  $l_pad .= '0';
	  $kw_w = $l_pad . $tmp[0];
	}
	$kw_w=($kw_w=='') ? $tmp[0]:$kw_w;
	$paczki=(strlen($kw_w)/3)-1;
	$p_tmp=$paczki;
	for($i=0;$i<=$paczki;$i++) {
	  $t_tmp='t_kw_'.$p_tmp;
	  $p_tmp--;
	  $p_kw=substr($kw_w,($i*3),3);
	  $kw_w_s=($p_kw{1}!=1) ? $t_a[$p_kw{0}].' '.$t_b[$p_kw{1}].' '.$t_c[$p_kw{2}]:$t_a[$p_kw{0}].' '.$t_d[$p_kw{2}];
	  if(($p_kw{0}==0)&&($p_kw{2}==1)&&($p_kw{1}<1)) $ka=${$t_tmp}[0]; //możliwe że $p_kw{1}!=1
	  else if (($p_kw{2}>1 && $p_kw{2}<5)&&$p_kw{1}!=1) $ka=${$t_tmp}[2];
	  else $ka=${$t_tmp}[1];
	  $kw_slow.=$kw_w_s.' '.$ka.' ';
	}
  }
  $text = $kw_slow.' '.$tmp[1].'/100 gr.';
  return $text;
}
 
echo slownie('12345678910111213141516171819202122232425262728,56');
?>
[PHP] pobierz, plaintext 

Pozdrawiam

Ten post edytował ROMeeO 29.06.2006, 22:14:16

[ROMeeO]

Niom w sumie zadefiniowanie zmiennych możnaby zrobić.
Co do 00/100 gr. to jest mi potrzebne w takiej formie, bo taki był wymóg klienta. Zresztą to można w prosty sposób przerobić.
Ale dziękówka za wszelkie wskazówki, zwłaszcza 433/100 gr. mi się podobało, już sobie to poprawiłem. Mam tylko mały problem z tym "jeden tysiąc (...)" ale już mi się nasuwa rozwiązanie.

Innymi słowy jeszcze trochę powalczę i będzie OK.

Pozdrawiam.

--
1) Nie ma rzeczy niemożliwych, są tylko nie odkryte jeszcze rozwiązania.
2) Z problemami jest jak z kobietami, trzeba się z nimi przespać.
3) Rozwiązanie problemów jest sumą rzeczy powtarzalnych