DevProTalk - cifre u brojeve, za fakture i sl. obracune?

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)

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:

Citat:

Originalno napisao dootzky (Napišite 45257)

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

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 :)

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.

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

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';

};

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

Ubeđen sam da je oboje pravilno.

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

Citat:

Originalno napisao bluesman (Napišite 45278)

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

Skoro sam siguran da je po Vuku sedamsto osnovni broj, a sedamstotina je valjda zbirni broj ... a kad se broji koriste se osnovni... ma u poeziji i programiranju je sve dozvoljeno bre ;-)

^ ali nije u knjigovodstvu :)

blues nas ubija.
on to namerno, nema pametnija posla nego da maltretira nas decu... ^_^

btw, ako dodamo i nastavak stoTINA, onda moramo opet da pazimo na padeze, dakle to je jos dodatne zezancije...

stotinU
dvestotinE
tristotinE
cetiristotinE
petstotinA
seststotinA
sedamstotinA
osamstotinA
devetstotinA

UAE? Unix Amiga Emulator? :) .. idem da radim, konfuzija.... aaaa!

Citat:

Originalno napisao dootzky (Napišite 45291)

Ovaj kod koji sam postovao vodi racuna o padezima... :)

Citat:

Originalno napisao bluesman (Napišite 45289)

^ ali nije u knjigovodstvu :)

Ma gde zna Pera pisar iz administrativnog sta je gramatika :)

Citat:

Originalno napisao dootzky (Napišite 45291)

blues nas ubija.
btw, ako dodamo i nastavak stoTINA, onda moramo opet da pazimo na padeze, dakle to je jos dodatne zezancije...

Osnovni brojevi od 5 pa nadalje se ne menjaju po padezima.

Znaci ovako nekako je valjda pravilno:
dva dinara, tri dinara, petsto dinara
dvoje ljudi, troje ljudi, petstotina ljudi

Citat:

Originalno napisao LiquidBrain (Napišite 45293)

Ovaj kod koji sam postovao vodi racuna o padezima... :)

A jel vodi racuna o genitivu jednine? ;)

Citat:

Originalno napisao Misha (Napišite 45294)

Osnovni brojevi od 5 pa nadalje se ne menjaju po padezima.

Znaci ovako nekako je valjda pravilno:
dva dinara, tri dinara, petsto dinara
dvoje ljudi, troje ljudi, petstotina ljudi

Naravno da se menjaju!

Za one sa nepravilnom množinom:
500 ljudi
501 čovek
502 čoveka
503 čoveka
504 čoveka
505 ljudi
...

Za one sa pravilnom množinom:
500 dinara
501 dinar
502 dinara
503 dinara
504 dinara
505 dinara
...

Kôd:

function declinate($num = 0, $cases) {

        if (array_key_exists($num, $cases)) {

                return $cases[$num];

        }

        $num %= 100;

        if ($num > 4 and $num < 20) {

                return declinate(5, $cases);

        }

        $num %= 10;

        return declinate($num, $cases);

}



$mnozine['nominativ'] = array('ljudi', 'čovek', 'čoveka', 'čoveka', 'čoveka', 'ljudi');

for ($i = 0; $i < 30; $i++) {

        echo sprintf("%d:\t%s\n", $i, declinate($i, $mnozine['nominativ']));

}

Hoces u petsto dinara da ovo nije promena brojeva po padezima sto si dao :)

Evo ko kaze pet stotina a ko kaze petsto ...

Da li neko može ovo da napravi za Excell.

Ja radim fakture u Excellu, tako što mi se PDV i total sami računaju, samo mi fali ta funkcija, jer je kucanje cifre slovima stvarno dosadno.

Citat:

Originalno napisao ljtruba (Napišite 46098)

Da li neko može ovo da napravi za Excell.

Ja radim fakture u Excellu, tako što mi se PDV i total sami računaju, samo mi fali ta funkcija, jer je kucanje cifre slovima stvarno dosadno.

Ima gotovo rešenje, poseti stranicu: Ispišite broj slovima a tamo ima još i gomila manje ili više korisnih stvari za Excel

Kako nesto sto je ovako jednostavno nece da mi radi?

U Visual BAsic editoru sam paste-ovao kod.
Uradio sam to i u Sheet1 i u ThisWorkbook

Koristim ga kao =slovima(A1)
Dobijam gresku #NAME?

Jel zna neko resenje?

Koristim OpenOffice i slovimal funkciju i sve lepo radi.
Kada zatvorim fajl i ponovo otvorim dobijam poruku #MACRO?

Zasto je to tako?