Kwota zapisana liczbą na zapis słowny, Funkcja, PHP 4 i 5 Opcje

[soldat]

Witam wszystkich.

Napisałem poniższą funkcję do podawania kwoty słownie podczas drukowania przelewów. Działa ona w zakresie 1-999999 (to i tak już o wiele za dużo jak na moje potrzeby), ale bez problemu można ja przerobić tak żeby działała na większych liczbach ( bądź ujemnych (IMG:http://forum.php.pl/style_emoticons/default/smile.gif) )

[PHP] pobierz, plaintext 
<?
 
$jedn=array(1=>&#092;"jeden\",\"dwa\",\"trzy\",\"cztery\",\"pięć\",\"sześć\",\"siedem\",\"osiem\",\"dziewięć\",\"dziesięć\",\"jedenaście\",\"dwanaście\",
			&#092;"trzynaście\",\"czternaście\",\"piętnaście\",\"szesnaście\",\"siedemnaście\",\"osiemnaście\",\"dziewiętnaście\");
 
$dzies=array(2=>&#092;"dwadzieścia\",\"trzydzieści\",\"czterdzieści\",\"pięćdziesiąt\",\"sześćdziesiąt\",\"siedemdziesiąt\",\"osiemdziesiąt\",\"dziewięćdziesiąt\");
 
$setki=array(1=>&#092;"sto\",\"dwieście\",\"trzysta\",\"czterysta\",\"pięćset\",\"sześćset\",\"siedemset\",\"osiemset\",\"dziewięćset\");			
 
 
function kwota_slownie($kwota) {
 
  global $jedn,$dzies,$setki;	 
 
  // usuniecie zbednych zer z poczatku ciagu (zeby np. \"009\" bylo zamieniane na \"dziewiec\")
  while ($kwota[0]==&#092;"0\") { $kwota=substr($kwota,1,strlen($kwota)); }
 
  $str_dl=strlen($kwota);
 
  if ($kwota<20) { $slownie=$jedn[$kwota]; }
 
  elseif ($kwota<100) { 
 
	$j=$kwota[1];   $d=$kwota[0];
	$slownie=$dzies[$d].&#092;" \".$jedn[$j];
 
  }	
 
  elseif ($kwota<1000) { 
 
	$s=$kwota[0];
	$d=substr($kwota,1,$str_dl);
	$slownie=$setki[$s].&#092;" \".kwota_slownie($d); 
 
  }
 
  elseif ($kwota<1000000) {		 
 
	$d=substr($kwota,-3);  
	if ($kwota<2000) { $t=&#092;"tysiąc\"; }
	elseif ($kwota<5000) { 
 
	  $jt=$kwota[0];		
	  $t=$jedn[$jt].&#092;" tysiące\";
 
	}	  
 
	else { 
 
	  $jt=substr($kwota,0,$str_dl-3);
	  $t=kwota_slownie($jt).&#092;" tysięcy\";
 
	}	  
 
	$slownie=$t.&#092;" \".kwota_slownie($d);	
 
  }	 
 
  // to juz ponad milion - mozna zrobic tak samo jak dla tysiecy
  // mi nie było to już potrzebne :)
  else { $slownie=$kwota; }
 
 
  return($slownie);
 
}
 
?>
[PHP] pobierz, plaintext 

EDIT :

Użycie :

[PHP] pobierz, plaintext 
<?  
 
   // $suma - zmienna integer 
   // $zlotych_slownie - string
 
   $zlotych_slownie=kwota_slownie($suma);
 
?>
[PHP] pobierz, plaintext 

Ten post edytował soldat 15.03.2005, 11:01:49

[SongoQ]

Polecam skorzystanie z PEAR
http://pear.php.net/package/Numbers_Words