Dubbel variabel typ
VBA Dubbel datatyp används för att lagra nummer som kräver decimaler. Den kan lagra från -1.79769313486231E308 till -4.94065645841247E -324 för negativa värden och 4.94065645841247E -324 till 1.79769313486232E308 för positiva värden.
För att deklarera en dubbelvariabel använder du Dim Statement (förkortning för Dimension):
| 1 | Dim dblA som dubbel |
För att sedan tilldela ett värde till en variabel, använd helt enkelt likhetstecknet:
| 1 | dlbA = 3658,25 |
Att sätta in detta i ett förfarande ser ut så här:
| 12345678 | Sub dblExempel ()'deklarera den dubbla variabelnDim dblA som dubbel'fyll i den dubbla variabelndblA = 3658,25'visa meddelanderutanMsgBox dblAAvsluta Sub |
Om du kör koden ovan visas följande meddelanderuta.
Enstaka datatyp
Den enda datatypen är bara en kortare version av datatypen Dubbel. På grund av detta kan den göra avrundningen när den används i en procedur eftersom den enda datatypen avrundas till 4 decimaler, medan den dubbla datatypen avrundas till 12 decimaler. Om du inte behöver dubbel datatyp kan du använda enstaka datatyp
Int eller Långa datatyper
Om du inte behöver en decimal kan du använda antingen Int -datatyp eller lång datatyp.
| 1 | Dim intA som heltal |
| 1 | Dim lngB som lång |
Deklarera dubbelvariabel på modul eller global nivå
I de tidigare exemplen har vi deklarerat dubbelvariabeln inom ett förfarande. Variabler som deklareras med ett förfarande kan endast användas inom det förfarandet.
Istället kan du deklarera dubbla variabler på modul- eller global nivå.
Modulenivå
Modulenivå variabler deklareras högst upp i kodmodulerna med Dämpa påstående.
Dessa variabler kan användas med alla procedurer i den kodmodulen.
Global nivå
Global nivå variabler deklareras också högst upp i kodmodulerna. Men istället för att använda Dämpa uttalande, använd offentlig uttalande för att indikera att Double -variabeln är tillgänglig för användning under hela ditt VBA -projekt.
| 1 | Offentlig DblA som dubbel |
Om du skulle deklarera den dubbla variabeln på en modulnivå och sedan försöka använda den i en annan modul skulle ett fel uppstå.
Men om du hade använt det offentliga nyckelordet för att deklarera den dubbla variabeln, skulle felet inte uppstå och proceduren skulle fungera perfekt.
Format Dubbel lagrad som sträng
Det kan finnas en tid då du vill formatera en dubbel datatyp till en sträng - till exempel kanske du vill visa en valutasymbol och avrunda talet till 2 decimaler.
För att uppnå detta använder du funktionen Format.
Följande procedur
| 1234567891011 | Sub TestDoubleToCurrencyString ()'deklarera strängvariabelnDim strPengar som sträng'deklarera det dubbla och fyll i värdetDim dblValue As DoubledblValue = 44055,256'konvertera det dubbla till en sträng med en valutasymbol med 2 decimalerstrMoney = Format (dblValue, "$#, ## 0.00")'se resultatetMsgBox strPengarAvsluta Sub |
skulle returnera detta resultat:
På samma sätt kanske du vill visa ett nummer som ett formaterat telefonnummer.
Denna procedur:
| 1234567891011 | Sub TestDoubleToPhone ()'deklarera strängvariabelnDim strPhone Som sträng'deklarera det dubbla och fyll i värdetDim dblValue As DoubledblValue = 555968541'konvertera det dubbla till en sträng med en valutasymbolstrPhone = Format (dblValue, "(000) -000 0000")'se resultatetMsgBox strPhoneAvsluta Sub |
skulle returnera detta resultat:
