'Primer 11: kontrola ulaza i konverzija tipova (IsNumeric, InStr, CInt) 'Radi ako su u Regional and Language Options izabrani formati za engleski '(tada je '.' separator celog dela i decimala, a ',' separator hiljada. Npr. 12,345.67 'Ako su izabrani formati za srpski, tada '.' i ',' imaju obrnute uloge pa u proceduri 'treba zameniti InStr(ulaz, ".") sa InStr(ulaz, ",") Sub kontrolaUlaza() Dim ulaz As String Dim realan As Double Dim ceo As Integer ulaz = InputBox("Unesite ceo broj iz intervala (-32768, 32767)") If IsNumeric(ulaz) Then If InStr(ulaz, ".") > 0 Then 'engleski 'If InStr(ulaz, ".") > 0 Then 'srpski MsgBox "Uneli ste broj, ali on nije ceo. Greska!" Else MsgBox "Uneli ste ceo broj " & CInt(ulaz) & ". Sve je u redu." End If Else MsgBox "Ulaz nije broj" End If End Sub