DevProTalk

DevProTalk (http://www.devprotalk.com/index.php)
-   PHP (http://www.devprotalk.com/forumdisplay.php?f=9)
-   -   cifre u brojeve, za fakture i sl. obracune? (http://www.devprotalk.com/showthread.php?t=3834)

dootzky 25. 10. 2007. 12:50

cifre u brojeve, za fakture i sl. obracune?
 
probao sam da pretrazim forum, ali ne znam ni kako bi ukucao search string! :D

elem, zadatak je (relativno) jednostavan:

1) ako imas neku cifru na racunu, recimo 452,318.00 dinara
2) to trebas da napises slovima, za isti primer bi trebalo:
cetiristopedesetdvehiljadetristaosamnaestdinara

e sad, ja krenuo da razlazem obicne cifre, uradio jedinice, desetice, stotine, hiljade, desetine hiljada.. i onda video nepravilnosti, pa probao da se pravim pametan i da optimizujem kod uz funckije, pa ispalo jos gore...

PITANJE: - ima li neko gotovo resenje za ovo? sigurno jos neko mora da koristi ove stvari?? help? :P

tip: 60 != sestdeset :1041:

LiquidBrain 25. 10. 2007. 12:55

Citat:

Originalno napisao dootzky (Napišite 45257)
probao sam da pretrazim forum, ali ne znam ni kako bi ukucao search string! :D

elem, zadatak je (relativno) jednostavan:

1) ako imas neku cifru na racunu, recimo 452,318.00 dinara
2) to trebas da napises slovima, za isti primer bi trebalo:
cetiristopedesetdvehiljadetristaosamnaestdinara

e sad, ja krenuo da razlazem obicne cifre, uradio jedinice, desetice, stotine, hiljade, desetine hiljada.. i onda video nepravilnosti, pa probao da se pravim pametan i da optimizujem kod uz funckije, pa ispalo jos gore...

PITANJE: - ima li neko gotovo resenje za ovo? sigurno jos neko mora da koristi ove stvari?? help? :P

tip: 60 != sestdeset :1041:


resenja u smalltalku...

Kôd:

PrivateNumberToWords: aNumber
    | rez imeBr celi cbroj tric trojka cs cd cj sl1 |
    aNumber isNilOrZero ifTrue: [rez := 'nula'].
    imeBr := (ItcLookupTable new)
                at: 1 put: 'jedan';
                at: 2 put: 'dva';
                at: 3 put: 'tri';
                at: 4 put: 'četiri';
                at: 5 put: 'pet';
                at: 6 put: 'šest';
                at: 7 put: 'sedam';
                at: 8 put: 'osam';
                at: 9 put: 'devet';
                yourself.
    rez := ''.
    celi := aNumber integerPart.
    cbroj := celi itcAsInteger asLeadingZerosStringOfSize: 15.
    1 to: 15
        by: 3
        do:
            [:each |
            tric := cbroj midString: 3 from: each.
            trojka := tric itcAsInteger.
            tric ~= '000'
                ifTrue:
                    [cs := tric first itcAsInteger.
                    cd := (tric at: 2) itcAsInteger.
                    cj := (tric at: 3) itcAsInteger.
                    cs = 2 ifTrue: [rez := rez , 'dve'].
                    cs > 2 ifTrue: [rez := rez , (imeBr at: cs)].
                    cs = 1 ifTrue: [rez := rez , 'stotinu'].
                    (#(2 3 4) includes: cs) ifTrue: [rez := rez , 'stotine'].
                    cs > 4 ifTrue: [rez := rez , 'stotina'].
                    cj isZero ifTrue: [sl1 := ''] ifFalse: [sl1 := imeBr at: cj].
                    cd = 4 ifTrue: [rez := rez , 'četr'].
                    cd = 6 ifTrue: [rez := rez , 'šez'].
                    cd = 5 ifTrue: [rez := rez , 'pe'].
                    cd = 9 ifTrue: [rez := rez , 'deve'].
                    (#(2 3 7 8) includes: cd) ifTrue: [rez := rez , (imeBr at: cd)].
                    cd = 1
                        ifTrue:
                            [sl1 := ''.
                            cj isZero
                                ifTrue: [rez := rez , 'deset']
                                ifFalse:
                                    [cj = 1
                                        ifTrue: [rez := rez , 'jeda']
                                        ifFalse: [cj = 4 ifTrue: [rez := rez , 'četr'] ifFalse: [rez := rez , (imeBr at: cj)]]].
                            cj > 0 ifTrue: [rez := rez , 'naest']].
                    cd > 1 ifTrue: [rez := rez , 'deset'].
                    ((#(4 10) includes: each) and: [cd ~= 1])
                        ifTrue:
                            [cj = 1 ifTrue: [sl1 := 'jedna'].
                            cj = 2 ifTrue: [sl1 := 'dve']].
                    rez := rez , sl1.
                    each = 1
                        ifTrue:
                            [rez := rez , 'bilion'.
                            (cj > 1 or: [cd = 1]) ifTrue: [rez := rez , 'a']].
                    each = 4
                        ifTrue:
                            [rez := rez , 'milijard'.
                            (trojka \\ 100 > 11 and: [trojka \\ 100 < 19])
                                ifTrue: [rez := rez , 'i']
                                ifFalse:
                                    [cj = 1
                                        ifTrue: [rez := rez , 'a']
                                        ifFalse:
                                            [(cj > 4 or: [cj isZero]) ifTrue: [rez := rez , 'i'] ifFalse: [cj > 1 ifTrue: [rez := rez , 'e']]]]].
                    each = 7
                        ifTrue:
                            [rez := rez , 'milion'.
                            ((trojka \\ 100 > 11 and: [trojka \\ 100 < 19]) or: [cj ~= 1]) ifTrue: [rez := rez , 'a']].
                    each = 10
                        ifTrue:
                            [rez := rez , 'hiljad'.
                            (trojka \\ 100 > 11 and: [trojka \\ 100 < 19])
                                ifTrue: [rez := rez , 'a']
                                ifFalse:
                                    [(trojka = 1 and: [cj ~= 1])
                                        ifTrue: [rez := rez , 'u']
                                        ifFalse:
                                            [(cj > 4 or: [#(0 1) includes: cj])
                                                ifTrue: [rez := rez , 'a']
                                                ifFalse: [cj > 1 ifTrue: [rez := rez , 'e']]]]]]].
    ^rez


dootzky 25. 10. 2007. 13:03

u zivote.. nikada ne bi mogao da radim u smallTalku :D ali ipak budi nostalgiju, neodoljivo me podseca na Pascal gde sam dugo dugo pravio prve korake... kul, respect. :)

hvala za resenje Liquid!!
probacu ovo da pre-kodiram u PHPu, pa ako mi uspe - kacim ga ovde, for future generations.. ^_^ GPL i to ;)

a ako neko u medjuvremenu naleti na ovo, i ima PHP resenje..... skidam kapu :)

LiquidBrain 25. 10. 2007. 13:24

U R welcome :) Samo sto ti ne dodaje ono dinara na kraju... jer mi je trebalo za razlicite valute... Inace zbog padza trebas samo da vidis koja je zadnja cifra pa na osnovu nje da odredis da li ce da stoji dinar ili dinara.

Ako je 1 onda je dinar
ako je 5 onda je dinara

Pozdrav.

Nemanja Avramović 25. 10. 2007. 13:39

Imam ja rešenje u Paskalu, ako ti nešto znači :D a i ja bih voleo da ga vidim realizovanog u PHPu

filjo 25. 10. 2007. 13:45

Probaj ovo, trebalo bi da radi

Kôd:

function slova($broj) {
  $sZeroValue  = 'nula dinara';
  $StotiFormat = ' i %2.0f/100';
  $Jedinice[0]=array('', 'jedna', 'dve', 'tri', 'cetiri',
    'pet', 'sest', 'sedam', 'osam', 'devet',
    'deset', 'jedanaest', 'dvanaest', 'trinaest', 'cetrnajest',
    'petnaest', 'sesnaest', 'sedamnaest', 'osamnaest', 'devetnaest');
  $Jedinice[1]=array('', 'jedan', 'dva', 'tri', 'cetiri',
    'pet', 'sest', 'sedam', 'osam', 'devet',
    'deset', 'jedanaest', 'dvanaest', 'trinaest', 'cetrnajest',
    'petnaest', 'sesnaest', 'sedamnaest', 'osamnaest', 'devetnaest');
  $Desetice= array ('','','dvadeset', 'trideset', 'cetrdeset', 'pedeset',
    'sezdeset', 'sedamdeset', 'osamdeset', 'devedeset');
  $Stotine= array ('', 'sto', 'dvesta', 'trista', 'cetirsto',
    'petsto', 'sesto', 'sedamsto', 'osamsto', 'devetsto');
  $Prilozi[1]= array("-1"=>' dinar', 'a', '', 'a', 'a', 'a', 'a');
  $Prilozi[2]= array("-1"=>'hiljad', 'a', 'a', 'e', 'e', 'e', 'a');
  $Prilozi[3]= array("-1"=>'milion', 'a', '', 'a', 'a', 'a', 'a');
  $Prilozi[4]= array("-1"=>'milijard', 'i', 'a', 'e', 'e', 'e', 'i');
  $SignPrefix=array('', 'minus ');

  $eCeo=abs(floor($broj));
        $eStoti=substr(number_format($broj,2),-2);
  if (!$broj || !$eCeo)
                  return $sZeroValue;
  $res='';
  $s=number_format($eCeo,0,'.','');
  while ((strlen($s)%3)!=0) {
          $s='0'.$s;
  };
  for ($x=1;$x<=4;$x++) {
          $trojka=substr($s,strlen($s)-3,3);
          $s=substr($s,0,strlen($s)-3);
          if ($trojka=='') $trojka='000';
          if ($trojka!='000') {
                  if (($trojka[1]=='0') || ($trojka[1]=='1'))
                          $temp=$Jedinice[$x % 2][($trojka[1].$trojka[2])*1];
                  else
                          $temp=$Desetice[$trojka[1]].$Jedinice[$x %2][$trojka[2]*1];
                  $temp=$Stotine[$trojka[0]].$temp;
                  if ((1*$trojka[1].$trojka[2])<=5)
                          $temp.=$Prilozi[$x][-1].$Prilozi[$x][1*($trojka[1].$trojka[2])];
                  else
                          $temp.=$Prilozi[$x][-1].$Prilozi[$x][5];
                $res=$temp.$res;
          }
  };
  return $res.' '.$eStoti.'/100 para';
};


bluesman 25. 10. 2007. 13:47

zar se ne kaze pravilno "sedamstotina" a ne "sedamsto" ?

LiquidBrain 25. 10. 2007. 13:58

Da, kaze se :)

jablan 25. 10. 2007. 14:03

Ubeđen sam da je oboje pravilno.

filjo 25. 10. 2007. 14:08

Heh, moze biti...
To sam prevodio sa nekog jezika (VB ili Delphi) i nisam se bas udubljivao u tu problematiku.


Vreme je GMT +2. Trenutno vreme je 10:24.

Powered by vBulletin® Verzija 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Copyright © DevProTalk. All Rights Reserved.

Mišljenja, saveti, izjave, ponude ili druge informacije ili sadržaji nastali na Sajtu su vlasništvo onoga ko ih je kreirao, a ne DevProTalk.com, tako da ne morate da se oslanjate na njih.
Autori poruka su jedini odgovorni za ovakve sadržaje. DevProTalk.com ne garantuje tačnost, kompletnost ili upotrebnu vrednost informacija, stavova, saveta ili datih izjava. Ne postoje uslovi pod kojima bi mi bili odgovorni za štetu ili gubitak koji je posledica bilo čijeg oslanjanja na nepouzdane informacije, ili bilo kakve informacije nastale kroz komunikaciju između registrovanih članova.
Web sajt može sadržavati linkove na druge web sajtove na Internetu ili neke druge sadržaje. Ne kontrolišemo niti podržavamo te druge web sajtove, niti smo pregledali bilo kakve sadržaje na takvim sajtovima. Mi nećemo biti odgovorni za legalnost, tačnost ili prikladnost bilo kog sadržaja, oglasa, proizvoda, usluga ili informacije lociranim na ili distribuiranih kroz druge web sajtove, niti za bilo kakvu štetu nastalu kao posledica takvih informacija. DevProTalk.com drži i čuva druga prava vlasništva na web sajtu. Web sajt sadrže materijale zaštićene copyright-om, zaštitne znakove i druge informacije o pravu vlasništva ili softver. Članovi mogu poslatu informacije zaštićene pravima vlasništva njihovih nosilaca i ona ostaju zaštićena bez obzira da li su oni koji prenose te informacije to naveli ili ne. Osim informacija koje su u javnom vlasništvu ili za koje dobijete dozvolu, nemate pravo da kopirate, modifikujete ili na bilo koji način menjate, objavljujete, prenosite, distribuirate, izvršavate, prikazujete ili prodajte bilo koju informaciju zaštićenu pravima vlasništva. Slanjem informacija ili sadržaja na bilo koji deo DevProTalk.com, Vi automatski dozvoljavate i predstavljate garanciju da imate pravo da dozvolite DevProTalk.com ili članovima DevProTalk.com bespovratnu, kontinualnu, neograničenu, globalnu dozvolu da koriste, kopiraju, izvršavaju, prikazuju i distribuiraju takve informacije i sadržaje i da iz takvih sadžaja koriste bilo koji deo u bilo koje svrhe, kao i pravo i dozvolu da koriste gore navedene sadržaje. Svi zaštitni znakovi (trademarks), logotipi, oznake usluga, firme ili imena proizvoda koji se pominju na ovom web sajtu su vlasništvo kojim raspolažu njihovi vlasnici.