Dobbel variabel type
VBA Dobbelt datatype brukes til å lagre tall som krever desimaler. Den kan lagre fra -1.79769313486231E308 til -4.94065645841247E -324 for negative verdier, og 4.94065645841247E -324 til 1.79769313486232E308 for positive verdier.
For å deklarere en dobbel variabel, bruker du Dim Statement (forkortelse for Dimension):
| 1 | Dim dblA som dobbel |
For deretter å tilordne en verdi til en variabel, bare bruk likhetstegnet:
| 1 | dlbA = 3658,25 |
Å sette dette inn i en prosedyre ser slik ut:
| 12345678 | Sub dblExample ()'erklærer den dobbelte variabelenDim dblA som dobbel'fyll ut den dobbelte variabelendblA = 3658,25'vis meldingsboksenMsgBox dblASlutt Sub |
Hvis du kjører koden ovenfor, vises følgende meldingsboks.
Enkelt datatype
Enkeltdatatypen er bare en kortere versjon av den doble datatypen. På grunn av dette faktum kan det påvirke avrundingen når den brukes i en prosedyre ettersom enkelt datatype vil avrunde til 4 desimaler, mens dobbelt datatype vil avrunde til 12 desimaler. Hvis du ikke trenger den doble datatypen, kan du bruke den enkle datatypen
Int eller lange datatyper
Hvis du ikke trenger en desimal, kan du enten bruke Int datatype eller Lang datatype.
| 1 | Dim intA som heltall |
| 1 | Dim lngB som lang |
Deklarer dobbel variabel på modul eller globalt nivå
I de foregående eksemplene har vi erklært Double -variabelen innenfor en prosedyre. Variabler deklarert med en prosedyre kan bare brukes innenfor denne prosedyren.
I stedet kan du deklarere doble variabler på modul- eller globalt nivå.
Modulenivå
Modulenivå variabler deklareres øverst i kodemodulene med Dim uttalelse.
Disse variablene kan brukes med alle prosedyrer i den kodemodulen.
Globalt nivå
Globalt nivå variabler deklareres også øverst i kodemodulene. Imidlertid, i stedet for å bruke Dim uttalelse, bruk Offentlig uttalelse for å indikere at Double -variabelen er tilgjengelig for bruk i hele VBA -prosjektet.
| 1 | Offentlig DblA som Double |
Hvis du skulle deklarere den dobbelte variabelen på modulnivå og deretter prøve å bruke den i en annen modul, ville det oppstå en feil.
Men hvis du hadde brukt det offentlige søkeordet for å deklarere den dobbelte variabelen, ville feilen ikke oppstå og prosedyren ville fungere perfekt.
Format dobbelt lagret som streng
Det kan være et tidspunkt hvor du ønsker å formatere en dobbel datatype til en streng - for eksempel vil du kanskje vise et valutasymbol og avrunde tallet til 2 desimaler.
For å oppnå dette, bruker du Format -funksjonen.
Følgende prosedyre
| 1234567891011 | Sub TestDoubleToCurrencyString ()'erklærer strengvariabelenDim strPenger som streng'erklær det dobbelte og fyll ut verdienDim dblValue As DoubledblValue = 44055,256'konverter dobbelten til en streng med et valutasymbol med 2 desimalerstrMoney = Format (dblValue, "$#, ## 0.00")'se resultatetMsgBox strPengerSlutt Sub |
vil returnere dette resultatet:
På samme måte vil du kanskje vise et nummer som et formatert telefonnummer.
Denne fremgangsmåten:
| 1234567891011 | Sub TestDoubleToPhone ()'erklærer strengvariabelenDim strPhone As String'erklær det dobbelte og fyll ut verdienDim dblValue As DoubledblValue = 555968541'konverter dobbelten til en streng med et valutasymbolstrPhone = Format (dblValue, "(000) -000 0000")'se resultatetMsgBox strPhoneSlutt Sub |
vil returnere dette resultatet:
