Citat:
krckoorascic: hmm, izgleda da je Int brza :o)
a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...
ajd zdravo!
Treba obratiti paznju kod primene CInt funkcije na ovaj nacin; ukoliko string koji se konvertuje izlazi van opsega Integer dobice se overflow greska npr.
Code:
Debug.Print CInt("123456789") 'Greska
pa je u ovim slucajevima bolje koristiti Int funkciju, u sprezi sa IsNumeric, npr.
Code:
Dim A As String
Dim B As Integer
A = "123456789"
B = IIF(IsNumeric(A), Int(A), 0)
If CStr(B) = A Then
If B >= -32768 And B <= 32768 Then
MsgBox "Broj je ceo"
Else
MsgBox "Broj je van celobrojnog opsega"
End If
Else
MsgBox "Broj nije odgovarajuci"
End If