Tipo konvertavimo funkcijos

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Kiekviena funkcija išraišką, išraiška į konkretų duomenų tipas.

Sintaksė

CBool ( išraiška )

CByte ( išraiška )

CCur ( išraiška )

CDate ( išraiška )

CDbl ( išraiška )

CDec ( išraiška )

CInt ( išraiška )

CLng ( išraiška )

CSng ( išraiška )

CStr ( išraiška )

CVar naudojama ( išraiška )

Būtinas reiškinysargumentas yra bet kokia eilutės išraiška arba skaitinis reiškinys.

Pateikiama tipai

Funkcijos pavadinimas nustato grąžinamą tipą, kaip parodyta toliau:

Funkcija

Pateikimo tipas

Diapazone išraiška argumentas

Funkcija CBool

Bulio

Svarbūs eilutę arba skaitmeninė išraiška.

CByte

Baitas

0 iki 255.

CCur

Valiuta

-922,337,203,685,477.5808 922,337,203,685,477.5807.

CDate

Data

Bet koks Neleistinas datos reiškinys.

CDbl

Dvigubas

-1.79769313486231E308 į
-4.94065645841247E-324 išryškintų neigiamas reikšmes; 4.94065645841247E-324 į 1.79769313486232E308 už teigiamos reikšmės.

CDec

Dešimtainis

/-79,228,162,514,264,337,593,543,950,335 nulis Mastelis skaičių, tai yra be dešimtainių vietų skaičių. 28 dešimtainio skyriklio vietų skaičių, yra
/-7.9228162514264337593543950335. Mažiausias galimas ne nulinis skaičius yra 0.0000000000000000000000000001.

CInt

Sveikasis skaičius

-32,768 į 32 767; trupmenas suapvalinti.

CLng

Ilgas

-2,147,483,648 2,147,483,647; trupmenas suapvalinti.

CSng

Viengubas

-3.402823E38 į - 1.401298E-45 išryškintų neigiamas reikšmes; 1.401298E-45-3.402823E38, teigiamos reikšmės.

CStr

Eilutė

CStr grąžinami rezultatai priklauso nuo argumento išraiška .

CVar naudojama

Variantas

Pačią seką kaip dvigubai skaičiai. Pačią seką kaip eilutė ne skaičiai.


Pastabos

Jei reiškinio perduotas funkcijai yra už diapazono duomenų tipo, yra konvertuojamos į, įvyksta klaida.

Apskritai galite dokumentų savo kodą naudojant duomenų tipo konvertavimo funkcijas parodyti, kad nors operacijos rezultatas turėtų būti išreikštas konkretaus duomenų tipo, o ne numatytasis duomenų tipas. Pvz., naudokite CCur jėga valiutos tais atvejais, kai viengubo tikslumo, dvigubo tikslumo arba sveikojo skaičiaus skaičiavimas paprastai būtų vykdomas.

Naudodami duomenų tipo konvertavimo funkcijas vietoje Val teikiant tarptautiniu žino konvertavimus iš vieno duomenų tipo į kitą. Pvz., kai naudojate CCur, skirtingi dešimtainiai skyrikliai, skirtingi tūkstančių skyrikliu, ir įvairios valiutos parinktys yra tinkamai pripažintos priklausomai nuo kompiuterio lokalės parametrų.

Kai trupmenos dalis yra lygi 0,5, funkcijos CInt ir CLng visada jį apvalina iki artimiausio lyginio skaičiaus. Pvz., 0,5 suapvalina į 0 ir 1,5 apvalina iki 2. CInt ir CLng skiriasi nuo išspręsti ir Int funkcijos, kurios, o ne apvalinti, skaičiaus trupmeninę dalį. Be to, nustatyti ir Int visada grąžina reikšmę iš to paties tipo kaip perduodama.

Naudokite funkciją IsDate nustatyti, jei data gali būti konvertuojama į datą ir laiką. Funkcija CDate atpažįsta datos ir laiko literalų, taip pat kai kurie skaičiai, kurie yra tinkamų datų diapazoną. Konvertuojant skaičių į datą, visa sveikoji dalis yra konvertuojamas į datą. Bet kurią trupmeninę dalį skaičius yra konvertuojamas į dieną, pradedant nuo vidurnakčio laiku.

Funkcija CDate atpažįsta datos formatus pagal jūsų sistemos lokalė nustatymas. Teisinga tvarka diena, mėnesiu ir metais gali būti nenustatyta, jeigu ne vieną pripažintą datos parametrus. Be to, ilgasis datos formatas neatpažįstamas, jei jis taip pat yra savaitės dienos eilutę.

Funkcija CVDate taip pat pateikiama suderinamumo su ankstesnėmis versijomis Visual Basic. Funkcijos CVDate sintaksė identiška funkcijai CDate , tačiau CVDate grąžina į Variant kurio potipis yra data , o ne tipo data . Kadangi šiuo metu yra būdingas datos tipo, nėra jokių papildomų funkcijos CVDatenebereikia. Konvertuojant išraišką į datą, ir tada priskiriant ją į Variantgalima pasiekti tą patį efektą. Šis metodas yra suderinta su kitų vidinių tipų lygiavertės Variant potipių.

Pastaba : CDec funkcija negrąžins duomenų tipo; Vietoj to ji visada grąžina į Variant kurios reikšmę, konvertuotą į dešimtainį potipį.

Pavyzdžiai

Pastaba : Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Funkcija CBool

Patarimas : Reiškinio daryklė IntelliSense pradedant "Access 2010" padeda gauti jūsų išraiška teisė.

Šiame pavyzdyje funkcija CBool konvertuoti į Bulio logikosišraiška. Jei išraiška įvertinama ne nulio reikšme, funkcija CBool grąžina TRUE (teisinga); kitu atveju grąžina FALSE (klaidinga).

Dim A, B, Check
A = 5: B = 5 ' Initialize variables.
Check = CBool(A = B) ' Check contains True.
A = 0 ' Define variable.
Check = CBool(A) ' Check contains False.

Funkcija CByte

Šiame pavyzdyje funkcija CByte naudojama išraiškai konvertuoti į baitus.

Dim MyDouble, MyByte
MyDouble = 125.5678 ' MyDouble is a Double.
MyByte = CByte(MyDouble) ' MyByte contains 126.

Funkcija CCur

Šiame pavyzdyje funkcija CCur naudojama išraiškai konvertuoti į valiutą.

Dim MyDouble, MyCurr
MyDouble = 543.214588 ' MyDouble is a Double.
MyCurr = CCur(MyDouble * 2)
' Convert result of MyDouble * 2 (1086.429176) to a
' Currency (1086.4292).

Funkcija CDate

Šiame pavyzdyje funkcija CDate eilutei konvertuoti į datą. Apskritai fiksuotasis datas ir laikus eilutėmis (kaip parodyta šiame pavyzdyje) nerekomenduojama. Naudokite datos ir laiko literalų, pvz., #2/12/1969 # ir # 4:45:23 PM #, vietoj to.

Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"
' Convert to Date data type.
MyShortDate = CDate(MyDate)
MyTime = "4:35:47 PM"
' Convert to Date data type.
MyShortTime = CDate(MyTime)

Funkcija CDbl

Šiame pavyzdyje funkcija CDbl naudojama išraiškai konvertuoti į dvigubą.

Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)
' Convert result to a Double.
MyDouble = CDbl(MyCurr * 8.2 * 0.01)

CDec funkcija

Šiame pavyzdyje naudojama funkcija CDec konvertuoti skaičių į dešimtainį.

Dim MyDecimal, MyCurr
MyCurr = 10000000.0587 ' MyCurr is a Currency.
MyDecimal = CDec(MyCurr) ' MyDecimal is a Decimal.

Funkcija CInt

Šiame pavyzdyje funkcija Cint naudojama reikšmei konvertuoti sveikojo skaičiaus.

Dim MyDouble, MyInt
MyDouble = 2345.5678 ' MyDouble is a Double.
MyInt = CInt(MyDouble) ' MyInt contains 2346.

Funkcija CLng

Šiame pavyzdyje funkcija CLng reikšmei konvertuoti į ilgai.

Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45
MyVal2 = 25427.55 ' MyVal1, MyVal2 are Doubles.
MyLong1 = CLng(MyVal1)
' MyLong1 contains 25427.
MyLong2 = CLng(MyVal2)
' MyLong2 contains 25428.

Funkcija CSng

Šiame pavyzdyje funkcija CSng naudojama reikšmei konvertuoti į vieną.

Dim MyDouble1, MyDouble2, MySingle1, MySingle2
' MyDouble1, MyDouble2 are Doubles.
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1)
' MySingle1 contains 75.34211.
MySingle2 = CSng(MyDouble2)
' MySingle2 contains 75.34216.

Funkcija CStr

Šiame pavyzdyje funkcija CStr naudojama skaitinei reikšmei konvertuoti į eilutę.

Dim MyDouble, MyString
MyDouble = 437.324 ' MyDouble is a Double.
MyString = CStr(MyDouble)
' MyString contains "437.324".

Funkcija CVar naudojama

Šiame pavyzdyje funkcija CVar naudojama išraiškai konvertuoti į į Variant.

Dim MyInt, MyVar
MyInt = 4534 ' MyInt is an Integer.
MyVar = CVar(MyInt & "000")
' MyVar contains the string 4534000.

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×