promenljive i problem sa velikim vrednostima

promenljive i problem sa velikim vrednostima

offline
  • Pridružio: 26 Jan 2006
  • Poruke: 233

imam sledeci kod

Private Sub cmdKontrolniBroj_Click() Dim strIzdvajanje As String Dim strK As String Dim strKB As String Dim strB As String Dim strI As String Dim strZbir As String strIzdvajanje = Mid(lstLista, 1, 3)    '/ ovo polje sadrzi 3 cifre strI = txtBroj.Text                         '/ ovo polje je od 13 cifara strK = (strIzdvajanje & strI) * 100 strKB = Fix(strK / 97) * 97 strB = strK - strKB Label7.Caption = strK End Sub

Kad u listbox-u izaberem neki broj na primer 078, a u textbox.text ukucam 0201951763824
label7 mi ne izbacuje broj 10 vec 7,80201951763824E+16.
Izgleda da string polja ne mogu cuvati ovako velike cifre (18 cifara).
Sta da radim da bih ovu grsku ispravio koji tip promenljive koristiti?
hvala

Dopuna: 01 Maj 2007 11:53

ovde sam napravio gresku
treba umesto

label7.caption = strK

da stoji

label7.caption = strB



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 15 Maj 2006
  • Poruke: 333
  • Gde živiš: Babušnica

Ovo je za izracunavanje kontrolnog broja od JMBG ili ??? Ne razumem za sta ti sluzi listbox, ako je u pitanju JMBG?

0201951763824 - kontrolni broj je zadnji (13-ti) - 4, a ne 10 kako ti kazes...Pojasni.



offline
  • Pridružio: 26 Jan 2006
  • Poruke: 233

U pitanju je drugi kotrolni broj, ali nije kontrolni broj JMBG-a.Broj iz lstLista se spaja sa JMBG-om

strK = (strIzdvajanje & strI) * 100

i na osnovu toga se se racuna kontrolni broj

Dopuna: 01 Maj 2007 19:08

probao sam i sa ovim kodom

Private Sub cmdKontrolniBroj_Click() Dim decIzdvajanje As Variant Dim decK As Variant Dim decKB As Variant Dim decB As Variant Dim decI As Variant Dim strZbir As String ' ??? decIzdvajanje = cDec(Mid(lstLista, 1, 3))    '/ this place have 3 digits decI = cDec(txtBroj.Text)                         '/this place have 13 digits decK = cDec(((cstr(decIzdvajanje) & cstr(decI)) * 100 decKB = cDec(decK / 97) * 97 decB = decK - decKB Label7.Caption = decB End Sub

ali opet kad dodje do linije decKB = cDec(decK / 97) * 97
ne dobijam rezultat deljenja kao na kalkulatoru kad mu zadam na primer vrednosti 78 i 0201951763824

Ko je trenutno na forumu
 

Ukupno su 1267 korisnika na forumu :: 88 registrovanih, 9 sakrivenih i 1170 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, Agape, Aleksandar Tomić, aramis s, Aristotle2002, ArmFPGA, atmel, bavar357, Bbbggg1979, Bgorando, bigvlada, bolenbgd, BORUTUS, borya90, Bosnjo, bounty hunters, BOXRR, BraneS, branko7, bukefal, BZ, C-Gun, CikaKURE, Cirkon, dane007, despodovski.s, Despot Đurađ, dinamik, Dorcolac, Dovla 1980, Electron, Feller, FileFinder, Georgius, GveX, halkin gol, ivan979, Ivanmateja, Kajzer Soze, kalens021, Khaless, Knovakov, koom0001, Krin, Kubovac, kuntakinte, Leteća Krofna, lima, Maruti, mean_machine, Mercury, milenko crazy north, museum, nebidrag, nebojsag, nemkea71, nenad81, nightwish 01, niksa517, nizam, Parker, PedjaDikovic, Pekman, pisac12, precan, RajkoB, Resad76, Robin, Rothmans, samoborac, saputnik plavetnila, Srki98, StankoVrankovic, suton, svnedelja, SympathyForTheDevil, tm, tomigun, vathra, Velizar Laro, veljko82, vidra boy, virked, Vladko, voja64, vukovi, x011, ZlatniRez