Funkcija VBA CInt - Pretvori v celo število

Ta vadnica bo pokazala, kako s funkcijo CInt VBA pretvoriti izraz v podatkovni tip celega števila.

CInt funkcija

VBA CInt Pretvori izraz v celo število

Funkcijo VBA CInt lahko uporabite za pretvorbo izrazov v celoštevilski podatkovni tip v kodi VBA. Dobljeno število se zaokroži v celo število.

123456

PodCIntExample_1 ()MsgBox CInt (12.34) 'Rezultat je: 12MsgBox CInt (12.345) 'Rezultat je: 12MsgBox CInt (-124) 'Rezultat je: -124MsgBox CInt (-12,34) 'Rezultat je: -12End Sub

Zaokroževanje VBA CInt

Funkcija VBA CInt bo zaokrožila decimalni del vrste števila ali številko podobnega izraza. Vendar se v vseh primerih ne zaokroži pravilno. Ko je decimalni del 0,5, funkcija VBA CInt vrne najbližje celo število.

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: 2End Sub

Pričakovani decimalni vrednosti lahko dodamo decimalno število, ki je relativno majhno, da spremenimo obnašanje funkcije VBA Cint na pričakovano.

1234567891011

PodCIntExample_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: 15End Sub

Programiranje VBA | Generator kod deluje za vas!

VBA CInt Pretvarjanje nizov v cela števila

Funkcijo VBA CInt lahko uporabite za pretvorbo nizov v cela števila, če imajo znaki v nizu pomen kot številke.

123456789101112131415161718

Sub CIntExample_4 ()Dim StrEx kot nizStrEx = "112"MsgBox CInt (StrEx)"Rezultat je: 112StrEx = "112,3"MsgBox CInt (StrEx)"Rezultat je: 112 -> 112,3 je zaokroženStrEx = "11,2"MsgBox CInt (StrEx)'Rezultat je: 112 ->, je prezrtStrEx = "112 USD"MsgBox CInt (StrEx)"Rezultat je: 112 -> $ se prezreEnd Sub

Napaka v času izvajanja VBA CInt 13 Neujemanje vrste

Uporaba funkcije VBA Cint z nizi, ki vsebujejo neštevilčne znake ali znake, ki v numeričnem kontekstu nimajo pomena, bo povzročila napako med izvajanjem '13': Neskladje vrste.

1234567

PodCIntExample_5 ()'Spodnja koda bo povzročila sporočilo o NAPAKI'CInt ne more obravnavati neštevilčnih znakovDim StrEx kot nizStrEx = "Ab13"MsgBox CInt (StrEx)End Sub

Napaka v času izvajanja VBA CInt 6 Prelivanje

Uporaba funkcije VBA Cint z nizi, katerih vrednost je manjša ali večja od pričakovanega celega števila, bo povzročila napako med izvajanjem '6': Overflow. Podatkovni tip Integer v Excelu ima pričakovano vrednost od -32768 do 32767.

1234567

PodCIntExample_6 ()'Spodnja koda bo povzročila sporočilo o NAPAKI'NI mogoče obdelati neštevilčnih znakovDim StrEx kot nizStrEx = "1234567"MsgBox CInt (StrEx)End Sub

Utrujen od iskanja primerov kode VBA? Preizkusite AutoMacro!

Regionalne nastavitve VBA CInt

Funkcija VBA CInt ima različne vedenjske pretvorbe nizov z vejico ali piko. Uporablja regionalne nastavitve operacijskega sistema za ločilo decimalk in ločil številk.

12345678910111213141516

PodCIntExample_7 ()Dim StrEx kot nizStrEx = "1,9"MsgBox CInt (StrEx)"Če imajo regionalne nastavitve, potem ločilo za združevanje v skupine"Rezultat je: 19„Če imajo regionalne nastavitve, potem kot decimalni ločilo"Rezultat je: 2 (2, ker se 1.9 zaokroži)StrEx = "1,9"MsgBox CInt (StrEx)"Če imajo regionalne nastavitve. kot ločevalnik skupin"Rezultat je: 19"Če imajo regionalne nastavitve. kot decimalni ločilo"Rezultat je: 2 (2, ker se 1.9 zaokroži)End Sub

Programiranje VBA | Generator kod deluje za vas!

VBA CInt Pretvarjanje logičnih vrednosti v cela števila

Funkcija VBA Cint lahko pretvori logične spremenljivke v cela števila. Če je ocenjeni izraz res, je nastalo celo število -1 in če je ocenjeni izraz napačno, je nastalo celo število 0.

12345678910

PodCIntExample_8 ()Zatemni BoolEx kot BooleanBoolEx = ResMsgBox CInt (BoolEx) 'Rezultat je: -1MsgBox CInt (2 = 2) 'Rezultat je: -1BoolEx = NapačnoMsgBox CInt (BoolEx) 'Rezultat je: 0MsgBox CInt (1 = 2) 'Rezultat je: 0End Sub

VBA CInt Pretvarjanje datumov v cela števila

Funkcija VBA Cint lahko spremenite datumsko spremenljivko v celo število. Vrnjena vrednost je interna številka, ki jo Excel uporablja za zaokrožitev shranjevanja datumov. Če to število presega pričakovane omejitve celih števil za VBA, dobimo napako med izvajanjem '6': Prelivanje.

123456789

PodCIntExample_9 ()Zatemni DateEx kot datumDateEx = #2/3/1940 #MsgBox CInt (DateEx)"Rezultat je: 14644DatumEx = #8/7/1964 #MsgBox CInt (DateEx)"Rezultat je: 23596End Sub