[php] Automatyczne Generowanie Liczb Słownie (?) Opcje

[karolski]

Witam,

Ciężko wyjaśnić w temacie co ja cche ale mam problem z sytulacja po wpisaniu wartości (liczby np. 49) zeby mozna bylo automatycznie wygenerowac tą liczbe słownie to jest dziwne ale mi potrzebne czy ktos moze powiedziec jak cos takiego zrobic.

[rolling_stone]

Na przyklad tak (może długo, ale działa):

[PHP] pobierz, plaintext 
<?php
     function Nazwa_Liczby( $liczba, $typ )
     {
      $tablica[0] = &#092;"zer\";
      $tablica[1] = &#092;"jed\";
      $tablica[2] = &#092;"dwa\";
      $tablica[3] = &#092;"trz\";
      $tablica[4] = &#092;"czt\";
      $tablica[5] = &#092;"pie\";
      $tablica[6] = &#092;"sze\";
      $tablica[7] = &#092;"sie\";
      $tablica[8] = &#092;"osi\";
      $tablica[9] = &#092;"dzi\";
      $tablica[10] = &#092;"dziesięć\";
      $tablica[20] = &#092;"dwadzieścia\";
      $tablica[30] = &#092;"trzydzieści\";
      $tablica[40] = &#092;"czterdzieści\";
      $tablica[50] = &#092;"pięćdziesiąt\";
      $tablica[60] = &#092;"sześćdziesiąt\";
      $tablica[70] = &#092;"siedemdziesiąt\";
      $tablica[80] = &#092;"osiemdziesiąt\";
      $tablica[90] = &#092;"dziewięćdziesiąt\";
      $tablica_pelne[0] = &#092;"zero\";
      $tablica_pelne[1] = &#092;"jeden\";
      $tablica_pelne[2] = &#092;"dwa\";
      $tablica_pelne[3] = &#092;"trzy\";
      $tablica_pelne[4] = &#092;"cztery\";
      $tablica_pelne[5] = &#092;"pięć\";
      $tablica_pelne[6] = &#092;"sześć\";
      $tablica_pelne[7] = &#092;"siedem\";
      $tablica_pelne[8] = &#092;"osiem\";
      $tablica_pelne[9] = &#092;"dziewięć\";
      $tablica_pelne[11] = &#092;"jedenaście\";
      $tablica_pelne[12] = &#092;"dwanaście\";
      $tablica_pelne[13] = &#092;"trzynaście\";
      $tablica_pelne[14] = &#092;"czternaście\";
      $tablica_pelne[15] = &#092;"piętnaście\";
      $tablica_pelne[16] = &#092;"szesnaście\";
      $tablica_pelne[17] = &#092;"siedemnaście\";
      $tablica_pelne[18] = &#092;"osiemnaście\";
      $tablica_pelne[19] = &#092;"dziewiętnaście\";
      $tablica_pelne[10] = &#092;"dziesięć\";
      $tablica_pelne[20] = &#092;"dwadzieścia\";
      $tablica_pelne[30] = &#092;"trzydzieści\";
      $tablica_pelne[40] = &#092;"czterdzieści\";
      $tablica_pelne[50] = &#092;"pięćdziesiąt\";
      $tablica_pelne[60] = &#092;"sześćdziesiąt\";
      $tablica_pelne[70] = &#092;"siedemdziesiąt\";
      $tablica_pelne[80] = &#092;"osiemdziesiąt\";
      $tablica_pelne[90] = &#092;"dziewięćdziesiąt\";
      $tablica_pelne[100] = &#092;"sto\";
      $tablica_pelne[200] = &#092;"dwieście\";
      $tablica_pelne[300] = &#092;"trzysta\";
      $tablica_pelne[400] = &#092;"czterysta\";
      $tablica_pelne[500] = &#092;"pięćset\";
      $tablica_pelne[600] = &#092;"sześćset\";
      $tablica_pelne[700] = &#092;"siedemset\";
      $tablica_pelne[800] = &#092;"osiemset\";
      $tablica_pelne[900] = &#092;"dziewięćset\";
      if($typ == 0)
      {
       return $tablica[$liczba];
      }
      else
      {
       return $tablica_pelne[$liczba];
      }
     }
     function Kwota_Slownie( $kwota, $typ )
     {
 
      $kwota_slownie = &#092;"\";
      $kwota_kopia = $kwota;
      $setne = 0;
      $dziesietne = 0;
      $grosze_d = 0;
      $grosze_j = 0;
      $grosze_txt = &#092;"\";
      // zapamiętujemy część setną i dziesiętną
      while($kwota_kopia >=1 )
      {
       $kwota_kopia--;
       $dziesietne++;
      }
      $setne = sprintf(&#092;"%00.0f\",$kwota_kopia * 100);
      $setne_kopia = $setne;
      while($setne_kopia >= 10)
      {
       $grosze_d++;
       $setne_kopia = $setne_kopia - 10;
      }
      $grosze_j = $setne_kopia;
      if(($grosze_j == 0 || $grosze_j > 4) && ($grosze_d == 1))
      {
       $grosze_napis = &#092;"groszy\";
      }
      else if($grosze_j == 1 || $grosze_d == 0)
      {
       $grosze_napis = &#092;"grosz\";
      }
      else
      {
       $grosze_napis = &#092;"grosze\";
      }
      $grosze_txt = Nazwa_Liczby($grosze_d,0) . &#092;"*\" . Nazwa_Liczby($grosze_j,0) . \"*gr\";
      //----------------------------------------------------
      $dziesietne_kopia = $dziesietne;
      while($dziesietne > 10)
      {
       $dziesietne = $dziesietne - 10;
      }
      $dziesietne_j = $dziesietne;
      if($dziesietne_j == 10)
      {
       $dziesietne_j = 0;
      }
      $dziesietne = $dziesietne_kopia / 10;
      while($dziesietne > 10)
      {
       $dziesietne = $dziesietne - 10;
      }
      $dziesietne_mniej = sprintf(&#092;"%01.0f\",$dziesietne);
      if($dziesietne_mniej > $dziesietne)
      {
       $dziesietne = sprintf(&#092;"%01.0f\",$dziesietne) - 1;
      }
      else
      {
       $dziesietne = sprintf(&#092;"%01.0f\",$dziesietne);
      }
      $dziesietne_d = $dziesietne;
      //
      $dziesietne = $dziesietne_kopia / 100;
      while($dziesietne > 10)
      {
       $dziesietne = $dziesietne - 10;
      }
      $dziesietne_mniej = sprintf(&#092;"%01.0f\",$dziesietne);
      if($dziesietne_mniej > $dziesietne)
      {
       $dziesietne = sprintf(&#092;"%01.0f\",$dziesietne) - 1;
      }
      else
      {
       $dziesietne = sprintf(&#092;"%01.0f\",$dziesietne);
      }
      $dziesietne_s = $dziesietne;
      //
      $dziesietne = $dziesietne_kopia / 1000;
      $dziesietne_form = sprintf(&#092;"%01.0f\",$dziesietne);
      if($dziesietne_form > $dziesietne)
      {
       $dziesietne_ty = $dziesietne_form - 1;
      }
      else
      {
       $dziesietne_ty = $dziesietne_form;
      }
      //
      $dziesietne_t_txt = Nazwa_Liczby($dziesietne_ty,0);
      $dziesietne_s_txt = Nazwa_Liczby($dziesietne_s,0);
      $dziesietne_d_txt = Nazwa_Liczby($dziesietne_d,0);
      $dziesietne_j_txt = Nazwa_Liczby($dziesietne_j,0);
      if(empty($dziesietne_t_txt) || $dziesietne_t_txt == &#092;"zer\")
      {
       if(empty($dziesietne_s_txt) || $dziesietne_s_txt == &#092;"zer\")
       {
        if(empty($dziesietne_d_txt) || $dziesietne_d_txt == &#092;"zer\")
        {
         $dziesietne_txt = &#092;"$dziesietne_j_txt*zł*\";
        }
        else
        {
         $dziesietne_txt = &#092;"$dziesietne_d_txt*$dziesietne_j_txt*zł*\";
        }
       }
       else
       {
        $dziesietne_txt = &#092;"$dziesietne_s_txt*$dziesietne_d_txt*$dziesietne_j_txt*zł*\";
       }
      }
      else
      {
       $dziesietne_txt = &#092;"$dziesietne_t_txt*$dziesietne_s_txt*$dziesietne_d_txt*$dziesietne_j_txt*zł*
\";
      }
      /* $dziesietne_txt = strtoupper($dziesietne_txt);
      $grosze_txt = strtoupper($grosze_txt); */
      if($typ == 0)
      {
       return &#092;"$dziesietne_txt$grosze_txt\";
      }
      else
      {
       if($grosze_d == 0)
       {
        $grosze_txt = Nazwa_Liczby($grosze_j , 1);
        if($grosze_j == 1)
        {
         $gr_txt = &#092;"grosz\";
        }
        else if($grosze_j >= 2 && $grosze_j <= 4)
        {
         $gr_txt = &#092;"grosze\";
        }
        else
        {
         $gr_txt = &#092;"groszy\";
        }
       }
       else if($grosze_d == 1)
       {
        $grosze_txt = Nazwa_Liczby($grosze_d*10+$grosze_j,1);
        $gr_txt = &#092;"groszy\";
       }
       else
       {
        $grosze_txt = Nazwa_Liczby($grosze_d*10,1);
        if($grosze_j != 0)
        {
         $grosze_txt .= &#092;" \" . Nazwa_Liczby($grosze_j,1);
        }
        if($grosze_j >= 2 && $grosze_j <= 4)
        {
         $gr_txt = &#092;"grosze\";
        }
        else
        {
         $gr_txt = &#092;"groszy\";
        }
       }
       if($dziesietne_d == 0)
       {
        $dziesietne_txt = Nazwa_Liczby($dziesietne_j , 1);
        if($dziesietne_j == 1)
        {
         $dz_txt = &#092;"złoty\";
        }
        else if($dziesietne_j >= 2 && $dziesietne_j <= 4)
        {
         $dz_txt = &#092;"złote\";
        }
        else
        {
         $dz_txt = &#092;"złotych\";
        }
       }
       else if($dziesietne_d == 1)
       {
        $dziesietne_txt = Nazwa_Liczby($dziesietne_d*10+$dziesietne_j,1);
        $dz_txt = &#092;"złotych\";
       }
       else
       {
        $dziesietne_txt = Nazwa_Liczby($dziesietne_d*10,1);
        if($dziesietne_j != 0)
        {
         $dziesietne_txt .= &#092;" \" . Nazwa_Liczby($dziesietne_j,1);
        }
        if($dziesietne_j >= 2 && $dziesietne_j <= 4)
        {
         $dz_txt = &#092;"złote\";
        }
        else
        {
         $dz_txt = &#092;"złotych\";
        }
       }
       if($dziesietne_s != 0 || !empty($dziesietne_s))
       {
        $setne_txt = Nazwa_Liczby($dziesietne_s*100,1) . &#092;" \";
       }
       return &#092;"$setne_txt$dziesietne_txt $dz_txt, $grosze_txt $gr_txt\";
      }
     }
?>
[PHP] pobierz, plaintext 

1. to jest skrypt dla kwot, ale można go zmodyfikować
2. możesz includować ten plik do skryptu php, a potem wywołać funkcję np. tak:

[PHP] pobierz, plaintext 
<?php
Kwota_Slownie(25.64,0); // zwróci \"dwa*pie*zł*sze*czt*gr\"
Kwota_Slownie(25.64,1); // zwróci \"dwadzieścia pięć złotych sześćdziesiąt cztery grosze\"
?>
[PHP] pobierz, plaintext 

czy odwrotnie z tym 0 i 1 (IMG:http://forum.php.pl/style_emoticons/default/winksmiley.jpg)

Ten post edytował rolling_stone 28.08.2004, 16:50:18

[talee]

A co gdy?

[PHP] pobierz, plaintext 
<?php
 
echo Kwota_Slownie(1122225.64,0); // zwróci ?
echo Kwota_Slownie(1122225.64,1); // zwróci ?
 
?>
[PHP] pobierz, plaintext 

Proponuję zapoznać się z klasą Numbers_Words z pakietu PEAR znajdź na google.pl

[PHP] pobierz, plaintext 
<?php
 
require_once('Numbers/Words.php');
 
echo Numbers_Words::toWords(1122225.64, 'pl');
 
?>
[PHP] pobierz, plaintext 

[rolling_stone]

A co gdy?

[PHP] pobierz, plaintext 
<?php
 
echo Kwota_Slownie(1122225.64,0); // zwróci ?
echo Kwota_Slownie(1122225.64,1); // zwróci ?
 
?>
[PHP] pobierz, plaintext 

Raczej nic (IMG:http://forum.php.pl/style_emoticons/default/winksmiley.jpg) , bo gdy robiłem ten skrypt raczej kwota miliona złotych nie była mi potrzebna (IMG:http://forum.php.pl/style_emoticons/default/winksmiley.jpg) .

Ale dzięki za tę klasę, gdybym o niej wiedział wcześniej zaoszczędziłbym parę godzin (IMG:http://forum.php.pl/style_emoticons/default/smile.gif) .

[DrOOcik]

Klasa Numbers_Words z pakietu PEAR jest OK, ale czasem skrypt wymaga "pełnej przenośności" na dowolny server, w każdej chwili.
Przy instalacji nowej klasy należy zainstalować pakiet PEAR na danym serverze, no i potem klasę Number_Words.
I jeśli się o tym zapomni, skrypt się "wywala", bo nie zainstalowano klasy...

Czyli taki kodzik rolling'a się jednak przyda (dzięki, miałem coś takiego zrobić u siebie, ale nie miałem czasu - to fajnie, że jednak czasem ktoś sie dzieli swoimi rozwiązaniami).
Co z tego, że do tysiąca, w końcu można to szybko rozbudować dalej na setki tysięcy... a i ceny raczej oscylują własnie w tych granicach.

Można ewentulnie dodać warunek, że jak > 1000 to dawać gwiazdki na returnie i już. Bo... właśnie, jest mały bug:

Mam zmienną $suma, co jest typu double (wzięte z mysql) i mimo, że jest np. 14.50 to i tak funkcja "miele" i nic... Bo za dużo "cyferek" przed przecinkiem czy jakoś tak.
To samo się zawiesza własnie przy dużych sumach.

Wrzucałem taką zmienną do w/w skryptu i kicha: echo Kwota_Slownie($suma,1);

i mielił... Ale znalazłem prosty sposób (wręcz "debilny"):

Przy function Kwota_Slownie ($kwota,$typ)

$kwota_kopia = $kwota*100/100;

i już, sprawa załatwiona ;-)


[OT] W ogóle, z typem double, zmienneprzecinkowym jest kupa problemów, bo 0 nie zawsze równa się 0 (problem z zaokrąglaniem, dokładność po przecinku...), ale to raczej zupełnie inny temat. Bo po latach całkiem przypadkiem znalazłem taki bug i teraz jak porównuję dwie liczby double to przedtem je przez sprintf odpowiednio "kształtuję'. Nie mówiąc o zaokrągleniach. Tam też te liczby potrafią się dziwnie zachowywać.


Pozdr.

Ten post edytował DrOOcik 10.09.2004, 22:47:47

[talee]

Numbers_Words jest praktycznie niezależne od PEAR, oprócz metody raiseError. Wystarczy // * 2 i po kłopocie.
Zabija Nazwa_Liczby pod kątem wydajności i nie tylko (IMG:http://forum.php.pl/style_emoticons/default/smile.gif) .
Odnośnie double wystarczy zastosować rzutowanie (Type Casting).

[DrOOcik]

Numbers_Words jest praktycznie niezależne od PEAR, oprócz metody raiseError. Wystarczy // * 2 i po kłopocie.
Zabija Nazwa_Liczby pod kątem wydajności i nie tylko (IMG:http://forum.php.pl/style_emoticons/default/smile.gif) .
Odnośnie double wystarczy zastosować rzutowanie (Type Casting).

...Odnośnie double wystarczy zastosować rzutowanie (Type Casting)...

Nie bardzo rozumiem. Do jakiego typu mam rzutować? Double to double. Chodzi mi o ograniczoną zmiennoprzecinkową do np. 2 miejsc po przecinku. Float nieco ma ograniczoną dokładność, ale zawsze to zbyt dużo.

Pozdr.