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

  1. Private Sub cmdKontrolniBroj_Click()
  2.  
  3. Dim strIzdvajanje As String
  4. Dim strK As String
  5. Dim strKB As String
  6. Dim strB As String
  7. Dim strI As String
  8. Dim strZbir As String
  9.  
  10. strIzdvajanje = Mid(lstLista, 1, 3)    '/ ovo polje sadrzi 3 cifre
  11. strI = txtBroj.Text                         '/ ovo polje je od 13 cifara
  12. strK = (strIzdvajanje & strI) * 100
  13. strKB = Fix(strK / 97) * 97
  14. strB = strK - strKB
  15.  
  16. Label7.Caption = strK
  17.  
  18. 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

  1. label7.caption = strK

da stoji

  1. 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

  1. 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

  1. Private Sub cmdKontrolniBroj_Click()
  2.  
  3. Dim decIzdvajanje As Variant
  4. Dim decK As Variant
  5. Dim decKB As Variant
  6. Dim decB As Variant
  7. Dim decI As Variant
  8.  
  9. Dim strZbir As String ' ???
  10.  
  11. decIzdvajanje = cDec(Mid(lstLista, 1, 3))    '/ this place have 3 digits
  12. decI = cDec(txtBroj.Text)                         '/this place have 13 digits
  13. decK = cDec(((cstr(decIzdvajanje) & cstr(decI)) * 100
  14. decKB = cDec(decK / 97) * 97
  15. decB = decK - decKB
  16.  
  17. Label7.Caption = decB
  18.  
  19. 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 1175 korisnika na forumu :: 62 registrovanih, 7 sakrivenih i 1106 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: Alexandar-1973, Ba4e, blatruc82, Bojan198527, bolenbgd, Boris90, bukefal, burevestnik, Ciri1994, daedal, dejanbenkovic, dexteroza, Dogma21, ele, famoso, Gargamel008, Georgius, Gerila015, ghibaudilodi, Goran 0000, ILGromovnik, jalos, Jaz, Khalid ibn al-Walid, Kuroje, kybonacci, ladro, MakiMaki02, Marko Marković, moldway, Motocar, Mrav Obrad, mrav pesadinac, Musklfiber, N95, nevjerna beba, Nmr, Nobunaga, Novakomp, Papadubi, pein, Primus17, S-lash, sajorg, sekretar, Shinobi, Solunac na steroidima, SOVO515, Srpska zauvjek, stegonosa, tamno.nebo, Trpe Grozni, tubular, Uzice, Vilson, voja64, Volkcho, x011, zdrebac, zeo, zil10, 800077