MyCity » Visual Studio -> Visual Basic » promenljive i problem sa velikim vrednostima

promenljive i problem sa velikim vrednostima

Napisano na dan: 1.5.2007

promenljive i problem sa velikim vrednostima
Sledeća strana Pagination

Idi na vrh

Poslao: 01 Maj 2007 11:53
Idi na vrh
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.
Poslao: 01 Maj 2007 14:46
Idi na vrh
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.



Poslao: 01 Maj 2007 19:08
Idi na vrh
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

MyCity » Visual Studio -> Visual Basic » promenljive i problem sa velikim vrednostima

Ko je trenutno na forumu
 

Ukupno su 6851 korisnika na forumu :: 74 registrovanih, 6 sakrivenih i 6771 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., AleksSE, aramis s, Banovo Brdo, Bojcca, boxbole, branko7, bunker, C-Gun, cenejac111, Cicumile, cikadeda, Citalac, Comyymoc, Crazzer, damirZR, desmeki, djboj, dolinalima, DonRumataEstorski, Džekson, fijufijukrozkapiju55, g_g, Gheljda, Glavonja049, gripen, HogarStrashni, HrcAk47, iceburn, igorkozar83, Igritelj, invictuss, JK, Kajzer Soze, Komder, kovinacc, lakson001, Lieutenant, ljubo70, M74AB3, Mahovljani, Michellefromrezistance, miki kv, Milan A. Nikolic, milanpetkovicv, milenko crazy north, Milometer, mrgud2025, pablojepao, panzerwaffe, pavle_pzs, picknick, Pilence, proka89, Raso75, repac, rodoljub, Sass Drake, skvara, Smiljke, spektorsky, Srki98, StankoVrankovic, synergia, tanakadzo, Trpe Grozni, Tvrtko I, vespa nikola, Vlada76, xAlex2, XBMC, Zastava, ZetaMan, Zorge