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

[kicaj]

1234,56
jeden tysiąc dwieście trzydzieści cztery złote 56/100 gr.
# jeden tysiac brzydko brzmi, ale musi byc:p
# 56/100 gr. dlaczego w ten sposob?(IMG:http://forum.php.pl/style_emoticons/default/questionmark.gif)

2,00
dwa złote 00/100 gr.
# wyeliminowac grosze w takim przypadku

12,42
dwanaście złotych 42/100 gr.
#ok

54434,433
pięćdziesiąt cztery tysiące czterysta trzydzieści cztery złote 433/100 gr.
# przyklad z ciekawosci

545,11
pięćset czterdzieści pięć złotych 11/100 gr.
# ok

1111,11
jeden tysiąc sto jedenaście złotych 11/100 gr.
# podobnie jak w 1. przykładzie
# nie wiem czy dopuszczalne byloby: tysiac sto jedensacie zlotych

1,01
jeden złoty 01/100 gr.
# ok

0,25
złotych 25/100 gr.
# sypie sie przy 0zl
# proponuje: zero złotych, 25 gr. lub poprostu: 25 gr

0,00
złotych 00/100 gr.
# jw.

Ogolnie poprawnie sie zachowuje, grosze takze moglby byc "pisane" (IMG:http://forum.php.pl/style_emoticons/default/smile.gif)
Na poczatku zdefiniuj zmienne $l_pad i $kw_slow bo wyskakuja Notice.
Jednak popracowalbym nad kodem, nazwenictwem zmiennych oraz czytelnosc lezy...

Ten post edytował kicaj 29.06.2006, 22:33:06