Ovaj će vodič pokazati kako koristiti funkciju CInt VBA za pretvaranje izraza u cjelobrojni tip podataka.
CInt funkcija
VBA CInt Pretvori izraz u cijeli broj
Funkcija VBA CInt može se koristiti za pretvaranje izraza u cjelobrojni tip podataka unutar VBA koda. Dobiveni broj se zaokružuje na cijeli broj.
123456 | Pod CIntExample_1 ()MsgBox CInt (12.34) 'Rezultat je: 12MsgBox CInt (12.345) 'Rezultat je: 12MsgBox CInt (-124) 'Rezultat je: -124MsgBox CInt (-12,34) 'Rezultat je: -12Kraj podm |
VBA CInt zaokruživanje
Funkcija VBA CInt zaokružit će decimalni dio vrste broja ili brojčanog izraza. Međutim, ne zaokružuje se pravilno u svim slučajevima. Kada je decimalni dio 0,5 tada funkcija VBA CInt vraća najbliži parni cijeli broj.
12345678910111213141516 | PodCIntExample_2 ()MsgBox CInt (0,34)'Rezultat je: 0MsgBox CInt (0,99)'Rezultat je: 1MsgBox CInt (-124,95)'Rezultat je: -125MsgBox CInt (1,5)'Rezultat je: 2MsgBox CInt (2,5)'Rezultat je: 2Kraj podm |
Možemo dodati decimalni broj relativno mali našoj očekivanoj decimalnoj vrijednosti kako bismo promijenili ponašanje funkcije VBA Cint na očekivano.
1234567891011 | Pod CIntExample_3 ()MsgBox CInt (2,5)'Rezultat je: 2MsgBox CInt (2,5 + 0,001)'Rezultat je: 3MsgBox CInt (14,5)'Rezultat je: 14MSgBox CInt (14,5 + 0,001)'Rezultat je: 15Kraj podm |
VBA programiranje | Generator koda radi za vas!
VBA CInt Pretvaranje nizova u cijele brojeve
Funkcija VBA CInt može se koristiti za pretvaranje nizova u cijele brojeve ako znakovi u nizu imaju značenje kao brojevi.
123456789101112131415161718 | Pod CIntExample_4 ()Dim StrEx kao nizStrEx = "112"MsgBox CInt (StrEx)'Rezultat je: 112StrEx = "112.3"MsgBox CInt (StrEx)'Rezultat je: 112 -> 112.3 je zaokruženoStrEx = "11,2"MsgBox CInt (StrEx)'Rezultat je: 112 ->, zanemaruje seStrEx = "112 USD"MsgBox CInt (StrEx)'Rezultat je: 112 -> $ se zanemarujeKraj podm |
Pogreška 13 VBA CInt Run-Time Error 13 Tipa
Korištenje funkcije VBA Cint sa nizovima koji sadrže ne-numeričke znakove ili znakove koji nemaju značenje u numeričkom kontekstu rezultirat će pogreškom Run-Time '13': Neslaganje tipova.
1234567 | Pod CIntExample_5 ()'Donji kôd rezultirat će porukom ERROR'CInt ne može rukovati ne -brojčanim znakovimaDim StrEx kao nizStrEx = "Ab13"MsgBox CInt (StrEx)Kraj podm |
VBA CInt Error Run-Time Error 6 Overflow
Korištenje funkcije VBA Cint sa nizovima koji rezultiraju vrijednošću manjom ili većom od očekivanog cijelog broja rezultirat će pogreškom Run-Time '6': Overflow. Cijeli broj podataka u excelu ima očekivanu vrijednost od -32768 do 32767.
1234567 | Pod CIntExample_6 ()'Donji kôd rezultirat će porukom ERROR'NE MOGU rukovati ne numeričkim znakovimaDim StrEx kao nizStrEx = "1234567"MsgBox CInt (StrEx)Kraj podm |
Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!
Regionalne postavke VBA CInt
VBA CInt funkcija ima različito ponašanje pretvarajući nizove sa zarezom ili točkom. Koristi regionalne postavke operacijskog sustava za decimalni separator i separator znamenki.
12345678910111213141516 | Pod CIntExample_7 ()Dim StrEx kao nizStrEx = "1,9"MsgBox CInt (StrEx)'Ako regionalne postavke imaju, onda kao razdjelnik za grupiranje'Rezultat je: 19‘Ako regionalne postavke imaju, kao decimalni razdjelnik onda'Rezultat je: 2 (2 jer se 1.9 zaokružuje)StrEx = "1,9"MsgBox CInt (StrEx)'Ako regionalne postavke imaju. kao separator grupiranja tada'Rezultat je: 19'Ako regionalne postavke imaju. kao decimalni separator tada'Rezultat je: 2 (2 jer se 1.9 zaokružuje)Kraj podm |
VBA programiranje | Generator koda radi za vas!
VBA CInt Pretvaranje logičkih vrijednosti u cijele brojeve
VBA Cint funkcija može pretvoriti logičke varijable u cijele brojeve. Ako je procijenjeni izraz istina, dobiveni cijeli broj je -1, a ako je ocijenjeni izraz lažan, rezultirajući cijeli broj je 0.
12345678910 | Pod CIntExample_8 ()Dim BoolEx Kao BooleanBoolEx = IstinaMsgBox CInt (BoolEx) 'Rezultat je: -1MsgBox CInt (2 = 2) 'Rezultat je: -1BoolEx = NetačnoMsgBox CInt (BoolEx) 'Rezultat je: 0MsgBox CInt (1 = 2) 'Rezultat je: 0Kraj podm |
VBA CInt pretvaranje datuma u cijele brojeve
VBA Cint funkcija može pretvoriti varijablu datuma u cijeli broj. Vraćena vrijednost je interni broj koji Excel koristi za zaokruživanje pohrane datuma. Ako je taj broj izvan očekivanih ograničenja cijelog broja za VBA, tada dobivamo pogrešku Run-Time '6': Overflow.
123456789 | Pod CIntExample_9 ()Dim DateEx As DateDatumEx = #2/3/1940 #MSgBox CInt (DateEx)'Rezultat je: 14644DatumEx = #8/7/1964 #MSgBox CInt (DateEx)'Rezultat je: 23596Kraj podm |