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
|