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 )

[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

[scanner]

Nie podoba mi się:
1. Brak kontroli typu i zakresu parametru funkcji
2. Użycie "global" w tym konkretnym przypadku
3. Linia 16
4. Nieporządek w kodzie.

Propozycja:
Przeanalizuj: http://forum.php.pl/index.php?showtopic=12806 i inne.

[soldat]

ad. 2 Faktycznie może i bez sensu - tablice mogą być spokojnie zadeklarowane lokalnie w miejscu instrukcji global - raczej nigdzie indziej używane nie będą
ad. 3 Proponuję zamienić linijkę 16 (w sumie to mi też sie nie podoba) na nastepujące :

[PHP] pobierz, plaintext 
<?php
 
  $kwota=(string)(floor($kwota));
  $kwota=ereg_replace(&#092;"^(0)\",\"\",$kwota);  
 
?>
[PHP] pobierz, plaintext 

Teraz funkcja bierze pod uwage tylko całkowitą część argumentu (i dobrze)
To w minimalnym choćby stopniu odnosi się również do punktu 1.
ad. 4 ?

Poza tym skrypt ma cenną zaletę : działa :roll2:

Dzięki za uwagi.

[modern]

a jak zrobić żeby obliczał także grosze?
bardzo prosze o pomoc bo taki skrypcik by mi sie przydał

[Spirit86]

ReDefine

[PHP] pobierz, plaintext 
<?php
 
 $jedn=array(1=>"jeden","dwa","trzy","cztery","pięć","sześć","siedem","osiem","dziewięć","dziesięć","jedenaście","dwanaście",
			"trzynaście","czternaście","piętnaście","szesnaście","siedemnaście","osiemnaście","dziewiętnaście");
 
$dzies=array(2=>"dwadzieścia","trzydzieści","czterdzieści","pięćdziesiąt","sześćdziesiąt","siedemdziesiąt","osiemdziesiąt","dziewięćdziesiąt");
 
$setki=array(1=>"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]=="0") { $kwota=substr($kwota,1,strlen($kwota)); }
 
  /* --- GROSZE --- */
  if(eregi('.', $kwota))
  {
  $groszy = end(explode('.', $kwota));
  $slownie_groszy = kwota_slownie($groszy);
  switch($groszy)
  {
	 case 0:
		  $slownie_groszy = '';
		 break;
	 case 1:
		  $slownie_groszy = 'jeden grosz';
		  break;
	 default:
		   $slownie_groszy .= 'groszy';
  }
 
  $str_dl=strlen($kwota);
 
  if ($kwota<20) { $slownie=$jedn[$kwota]; }
 
  elseif ($kwota<100) {
 
	$j=$kwota[1];   $d=$kwota[0];
	$slownie=$dzies[$d]." ".$jedn[$j];
 
  }
 
  elseif ($kwota<1000) {
 
	$s=$kwota[0];
	$d=substr($kwota,1,$str_dl);
	$slownie=$setki[$s]." ".kwota_slownie($d);
 
  }
 
  elseif ($kwota<1000000) {
 
	$d=substr($kwota,-3);
	if ($kwota<2000) { $t="tysiąc"; }
	elseif ($kwota<5000) {
 
	  $jt=$kwota[0];
	  $t=$jedn[$jt]." tysiące";
 
	}
 
	else {
 
	  $jt=substr($kwota,0,$str_dl-3);
	  $t=kwota_slownie($jt)." tysięcy";
 
	}
 
	$slownie=$t." ".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.$slownie_groszy);
 
}
 
?>
[PHP] pobierz, plaintext 

Pisałem z palca po uczelni, więc mogą być błędy

[SongoQ]

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

[kotkon]

Funkcja powyzsza w php powoduje mi reset polaczenia z serwerem