Vrsta dvojne spremenljivke
VBA Dvojno podatkovni tip se uporablja za shranjevanje številk, ki zahtevajo decimalna mesta. Shrani lahko od -1,79769313486231E308 do -4,94065645841247E -324 za negativne vrednosti in 4,94065645841247E -324 do 1,79769313486232E308 za pozitivne vrednosti.
Če želite razglasiti dvojno spremenljivko, uporabite stavek Dim (okrajšava za Dimenzija):
| 1 | Zatemni dblA kot dvojno |
Potem, če želite spremenljivki dodeliti vrednost, preprosto uporabite znak enako:
| 1 | dlbA = 3658,25 |
Dajanje tega v postopek izgleda tako:
| 12345678 | Sub dblExample ()'razglasi dvojno spremenljivkoZatemni dblA kot dvojno'napolni dvojno spremenljivkodblA = 3658,25'pokaži polje s sporočilomMsgBox dblAEnd Sub |
Če zaženete zgornjo kodo, se prikaže naslednje polje s sporočilom.
Enotna vrsta podatkov
Podatkovni tip Single je le krajša različica podatkovnega tipa Double. Zaradi tega lahko pri uporabi v postopku povzroči zaokroževanje, saj se en sam podatkovni tip zaokroži na 4 decimalna mesta, dvojni tip podatkov pa na 12 decimalnih mest. Če podatkovnega tipa Double ne potrebujete, lahko uporabite podatkovni tip Single
Int ali dolgi tipi podatkov
Če decimalnega mesta ne potrebujete, lahko uporabite podatkovni tip Int ali dolgi podatkovni tip.
| 1 | Zatemni intA kot celo število |
| 1 | Dim lngB kot Long |
Razglasite dvojno spremenljivko na modularni ali globalni ravni
V prejšnjih primerih smo v postopku razglasili dvojno spremenljivko. Spremenljivke, deklarirane s postopkom, se lahko uporabljajo samo v tem postopku.
Namesto tega lahko deklarirate dvojne spremenljivke na ravni modula ali na globalni ravni.
Raven modula
Raven modula spremenljivke so na vrhu kodnih modulov označene z Dim izjavo.
Te spremenljivke je mogoče uporabiti s katerim koli postopkom v tem kodnem modulu.
Globalna raven
Globalna raven spremenljivke so razglašene tudi na vrhu kodnih modulov. Namesto da uporabite Dim izjavo, uporabite Javno izjavo, ki označuje, da je spremenljivka Double na voljo za uporabo v celotnem projektu VBA.
| 1 | Javni DblA kot dvojni |
Če bi dvojno spremenljivko razglasili na ravni modula in jo nato poskusili uporabiti v drugem modulu, bi prišlo do napake.
Če pa ste za razglasitev dvojne spremenljivke uporabili ključno besedo Public, se napaka ne bi pojavila in postopek bi deloval brezhibno.
Oblikuj dvojno shranjeno kot niz
Morda boste želeli oblikovati dvojni podatkovni tip v niz - na primer boste morda želeli prikazati simbol valute in zaokrožiti številko na 2 decimalni mesti.
Če želite to narediti, uporabite funkcijo Oblika.
Naslednji postopek
| 1234567891011 | Sub TestDoubleToCurrencyString ()'razglasi spremenljivko nizaZatemni strMoney As String'razglasite dvojnik in vnesite vrednostZatemni dblValue kot dvojnodblValue = 44055.256'pretvorite dvojno v niz z simbolom valute z dvema decimalnima mestomastrMoney = Oblika (dblValue, "$#, ## 0.00")'si oglejte rezultatMsgBox str denarEnd Sub |
bi vrnil ta rezultat:
Podobno boste morda želeli prikazati številko kot oblikovano telefonsko številko.
Ta postopek:
| 1234567891011 | Sub TestDoubleToPhone ()'razglasi spremenljivko nizaZatemni strPhone kot niz'razglasite dvojnik in vnesite vrednostZatemni dblValue kot dvojnodblValue = 555968541'pretvorite dvojno v niz z valutnim simbolomstrPhone = Oblika (dblValue, "(000) -000 0000")'si oglejte rezultatMsgBox strPhoneEnd Sub |
bi vrnil ta rezultat:
