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

[Reptile ReX]

Może i temat stary (za co przepraszam), ale moja wiadomość jest jak najbardziej na
topie dla szukających sposobu na konwersję kwoty na postać
słowną w języku PHP.

Chciałbym zaprezentować wam mój projekt o nazwie Kwota Słownie

Biblioteka Kwota Słownie
Kwota słownie jest projektem wciąż rozwijanej biblioteki
napisanej w języku PHP 5 służącej do konwertowania kwoty
z postaci liczbowej na postać słowną, uwzględniając
poprawność językową oraz prawidłową odmianę w języku
polskim.

Biblioteka dzięki swojej uniwersalności sama dostosowuje się
pod użytkowników, użytkownik może sam zdecydować jaką
walutę chcę wyświetlać, oraz w jakim formacie prezentować
kwotę zdawkową czyli np. grosze – czy w postaci słownej tak jak
kwota podstawowa, czy być może jako liczba w postaci: 10/100,
20/100 itd.

Jeżeli szukasz rozwiązania dla swojej firmy lub jesteś
programistą, który poszukuję rozwiązania, które pozwoli na
wyświetlanie na fakturach kwoty słownej, to dobrze trafiłeś, nie
czekaj ani chwili dłużej...

Download oraz więcej informacji na
http://www.kwotaslownie.pl

Dodam, że biblioteka jest udostępniania na licencji LPGL