[es] - Da li je broj ceo?

Aleksandar Ružičić
Aleksandar Ružičić
Junior Developer, Spoonlabs d.o.o
20°27'46'' - 44°48'8''

SuperModerator
Član broj: 26939
Poruke: 2349
*.neobee.net.

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

Profil

Da li je broj ceo?

^{30.12.2004. u 17:20}

Kako da vidim da li mi je neki broj (u stringu!) ceo broj? Meni na pamet pada jedino da potrazim . ili , u tom stringu? (koliko je ovo resenje dobro i da li uopste postoji neko drugo?)

Vivvo CMS

_{jQuery addict!}

^{30.12.2004. u 17:20}

Pr[o_O]F
Tamna strana mjeseca ;)

Član broj: 30368
Poruke: 155
*.as3.sr.bih.net.ba.

Profil

Re: Da li je broj ceo?

^{30.12.2004. u 18:44}

Jedino sto mi pada na pamet je da broj zaokruzis s komandom

Code:

'Ovo ubacis u Sub
Select Case IsNumeric(Text1.Text) 'ovo provjerava da li je uopce broj!
Case True

If Text1.text=Round(text1.text,0) then 'ako je broj iz textboxa jednak njegovoj
msgbox "Broj je cio! 'zaokruzenoj vrijednosti onda...
else
msgbox "Broj nije cio!"
end if

Case Else
MsgBox "Nije broj!", vbOKOnly, "Greska!"
End Select

[ :. n!t .: ]

^{30.12.2004. u 18:44}

kiky
Petrovic Zoran
Beograd

Član broj: 37045
Poruke: 121
*.smin.sezampro.yu.

Profil

Re: Da li je broj ceo?

^{31.12.2004. u 20:58}

Mozda je ipak laksi nacin:
Dim A as string
Dim B as integer

If Not isNumeric(A) then exit sub

B= CInt(A) * 2 / 2

if cInt(A)-B<>0 then
msgbox "Broj je ceo"
else
msgbox "Broj nije ceo"
end if

^{31.12.2004. u 20:58}

Re: Da li je broj ceo?

^{01.01.2005. u 21:58}

hvala ljudi!

Vivvo CMS

_{jQuery addict!}

^{01.01.2005. u 21:58}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9006
*.vdial.verat.net.

Sajt: www.diskusije.net

Profil

Re: Da li je broj ceo?

^{01.01.2005. u 23:49}

Ili malo optimizovano :):

Code:
Dim A as string

If Not isNumeric(A) Then Exit Sub
if cInt(A) = A then
MsgBox "Broj je ceo"
Else
MsgBox "Broj nije ceo"
End If

^{01.01.2005. u 23:49}

Re: Da li je broj ceo?

^{02.01.2005. u 00:25}

kako se toga nisam setio???

hvala shadowed!

Vivvo CMS

_{jQuery addict!}

^{02.01.2005. u 00:25}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9006
*.vdial.verat.net.

Sajt: www.diskusije.net

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 00:33}

Isto moze sa Int() umesto CInt(). Trebalo bi testirati koja je brza ;).
Ili mozda...

Code:
Dim A as string

If isNumeric(A) and cInt(A) = A Then
MsgBox "Broj je ceo"
Else
If isNumeric(A) Then MsgBox "Broj nije ceo"
End If

A ako ti je nebitno kakav je ukoliko vec nije ceo:
Dim A as string : If isNumeric(A) and cInt(A) = A Then MsgBox "Broj je ceo"

^{02.01.2005. u 00:33}

Re: Da li je broj ceo?

^{02.01.2005. u 15:41}

hmm, izgleda da je Int brza :o)
a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...

ajd zdravo!

Vivvo CMS

_{jQuery addict!}

^{02.01.2005. u 15:41}

Marko_L
Marko Lošonc
Founder and Owner, Jurassic Software
Beograd

Moderator
Član broj: 20532
Poruke: 2219
*.yubc.net.

Jabber: Marko_L@elitesecurity.org
ICQ: 249407402
Sajt: www.jurassicsoftware.com

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 16:40}

Citat:

a uostalom meni je samo trebalo da vidim da li je broj deljiv sa 4...

Pa što onda tako nisi pitao :)

Code:
Dim A As String
If Not IsNumeric(A) Then Exit Sub
If A Mod 4 = 0 Then Msgbox "Broj je deljiv sa 4"

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca m.
-Piše "Insert disk 3", a jedva sam i ova dva ugurao u drajv
-Postoje samo dve osobe kojima verujem, jedna sam ja, a druga nisi ti

^{02.01.2005. u 16:40}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9006
213.244.197.*

Sajt: www.diskusije.net

Profil

Re: Da li je broj ceo?

^{02.01.2005. u 19:08}

Sta je vama ljudi :).
Dim A As String : If IsNumeric(A) And (A Mod 4 = 0) Then Msgbox "Broj je deljiv sa 4."

P.S. Ako sam dosadan, kazite :)

^{02.01.2005. u 19:08}

Re: Da li je broj ceo?

^{02.01.2005. u 23:36}

nisi dosadan shadowed

uvek je bolje imati sto manje koda

za sta uopste sluze ti operatori tipa MOD, XOR, AND, OR nisam nigde nasao objasnjenje toga (iskreno nisam ni trazio)?

Vivvo CMS

_{jQuery addict!}

^{02.01.2005. u 23:36}

Shadowed
.NET developer

SuperModerator
Član broj: 649
Poruke: 9006
*.vdial.verat.net.

Sajt: www.diskusije.net

Profil

Re: Da li je broj ceo?

^{03.01.2005. u 00:18}

Mod je ostatak pri deljenju a And, Or i Xor su logicke operacije.

Code:
True And True = True
True And False = False
False And True = False
False And False = False

True Or True = True
True Or False = True
False Or True = True
False Or False = False

True Xor True = False
True Xor False = True
False Xor True = True
False Xor False = False

_{[Ovu poruku je menjao Shadowed dana 03.01.2005. u 01:54 GMT+1]}

^{03.01.2005. u 00:18}

reiser
Beograd

Član broj: 7895
Poruke: 1903
*.neobee.net.

Profil

Re: Da li je broj ceo?

^{03.01.2005. u 00:18}

div vraca celobrojni deo kolicnika (10 div 3 = 3)
mod vraca celobrojni ostatak (10 mod 3 = 1)

Za NOT, AND, OR, XOR, SHL & SHR najbolje konsultuj MSDN

^{03.01.2005. u 00:18}

Dark Icarus
Goran Lalić
Medicinski Fakultet
Beograd

Član broj: 19775
Poruke: 417
*.nat-pool.bgd.sbb.co.yu.

Sajt: www.geocities.com/dr_chen..

Profil

Re: Da li je broj ceo?

^{07.01.2005. u 17:52}

SHL i SHR ??? u VBu??? Gde?

_{In a game of chess you must never let your opponent see your pieces - Zap Brannigan}

^{07.01.2005. u 17:52}

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1656
*.dialup.neobee.net.

Sajt: www.clickersoftware.com

Profil

Re: Da li je broj ceo?

^{13.08.2006. u 17:51}

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

vidi GoranVucicevic #28045

www.clickersoftware.com

^{13.08.2006. u 17:51}