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 580 korisnika na forumu :: 5 registrovanih, 1 sakriven i 574 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, bato, cikadeda, JOntra, slonic_tonic