promenljive i problem sa velikim vrednostima

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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