Predmet:Re: konvert broja u slovo

---

uzeo sam pmiroslavov metod, ali sam stavio u excel, jer mi muka od accesa.
Prvo sam stavio funkciju od nevsada, radi perfektno bez greske.
za broj 354 dobio sam odgovor: tristotinepedesetčetiri 0/100 KM, vrijeme 0,0000458158774563344

sada sam sa nekom dozom straha stavio funkciju od zxz-a, i naravno crne slutnje su se obistinile. Javilo mi gresku.
U redu 70, BrSlovima = Strb & ImenaB(DioTri, RodJ, I1) & BrSlovima
poziva se funkcija ImenaB(var1,var2,var3) koja ne postoji.
Sto je tada zxz radio , neznam. Vjerojatno su mu se motala po glavi imena pa je pozvao funkciju imena koje uopce nema.
Zamijenio sam ImenaB sa Cifre(var1,var2,var3) tako da 70-ti red izgleda ovako:
BrSlovima = Strb & Cifre(DioTri, RodJ, I1) & BrSlovima
i ...
ponovo greska, deklaracija var DioTri stavljen je kao String u 14 redu
Dim DioTri As String, deklaracijom kao Integer prolazi jer u redu 55 Str(1) = Cifre(Cifra, I2, I1) var Cifra je deklarirana kao Integer i to ...bla bla bla
znaci
14. Dim DioTri as Integer, da skratimo pricu

sada radi, pa pokrenimo sa BrSlovima(354), a rezultat je:
tristotinepedesetetirideset, cini mi se da daje ovu deset viska
pogledajmo BrSlovima(350)
tristotinepedesetdeset, to je u redu
znaci muce ga decimalno mjesto jedinica, ako je vece od 0 tj. ako je neki broj
u 135 redu zapocinje if uvijet

If PoRedu = 2 Then
If Cifra = 1 Then
Cifre = "naest"
Else
Cifre = Cifre & "deset"
End If

tu nesto ne stima, po meni, ali neznam što. Nakon sto Strb ima ispravnu vrijednost uvijet ispituje Cifra, vrijednost je 5 te prvi uvjet if Cifra=1 nije zadovoljen ali zato ono Else se izvrši i doda "deset"
Neznam kako to riješiti, ali dok se problem ne riješi preporučio bi koristiti nevsadovu funkciju

vrijeme potrebno da se program izvrsi , iako zxz funkcija ne radi, je:

	1234567890	354
zxz	0,0000639746112938155	0,0000363174649464781
nevsad	0,0000804571527623921	0,0000508444509250694

---