Dubbel variabel type
de VBA Dubbele gegevenstype wordt gebruikt om getallen op te slaan waarvoor decimalen vereist zijn. Het kan -1.79769313486231E308 tot -4.94065645841247E-324 opslaan voor negatieve waarden en 4.94065645841247E-324 tot 1.79769313486232E308 voor positieve waarden.
Om een Double variabele te declareren, gebruik je de Dim Statement (afkorting van Dimension):
| 1 | Dim dblA als dubbel |
Om vervolgens een waarde aan een variabele toe te kennen, gebruikt u eenvoudig het gelijkteken:
| 1 | dlbA = 3658.25 |
Dit in een procedure zetten ziet er als volgt uit:
| 12345678 | Sub dblVoorbeeld()'declareer de dubbele variabele'Dim dblA als dubbel'vul de dubbele variabele in'dblA = 3658.25'toon het berichtvenster'MsgBox dblAEinde sub |
Als u de bovenstaande code uitvoert, wordt het volgende berichtvenster weergegeven.
Enkel gegevenstype
Het gegevenstype Single is slechts een kortere versie van het gegevenstype Double. Vanwege dit feit kan het de afronding beïnvloeden wanneer het in een procedure wordt gebruikt, aangezien het enkele gegevenstype op 4 decimalen zal afronden, terwijl het dubbele gegevenstype op 12 decimalen zal afronden. Als u het gegevenstype Dubbel niet nodig hebt, kunt u het gegevenstype Enkel gebruiken
Int of Long gegevenstypen
Als u geen decimale plaats nodig heeft, kunt u het gegevenstype Int of het gegevenstype Long gebruiken.
| 1 | Dim intA als geheel getal |
| 1 | Dim lngB zo lang |
Declareer dubbele variabele op module- of globaal niveau
In de vorige voorbeelden hebben we de variabele Double gedeclareerd binnen een procedure. Variabelen gedeclareerd met een procedure kunnen alleen binnen die procedure worden gebruikt.
In plaats daarvan kunt u dubbele variabelen declareren op module- of globaal niveau.
Moduleniveau
Moduleniveau variabelen worden bovenaan codemodules gedeclareerd met de dim uitspraak.
Deze variabelen kunnen bij elke procedure in die codemodule worden gebruikt.
Globaal niveau
Globaal niveau variabelen worden ook gedeclareerd bovenaan codemodules. Echter, in plaats van de dim verklaring, gebruik de Openbaar statement om aan te geven dat de Double-variabele beschikbaar is voor gebruik in uw VBA-project.
| 1 | Openbare DblA als dubbel |
Als u de dubbele variabele op moduleniveau zou declareren en deze vervolgens in een andere module zou proberen te gebruiken, zou er een fout optreden.
Als u echter het trefwoord Public had gebruikt om de dubbele variabele te declareren, zou de fout niet optreden en zou de procedure perfect verlopen.
Formaat dubbel opgeslagen als string
Er kan een tijd zijn dat u een dubbel gegevenstype wilt opmaken als een tekenreeks - u wilt bijvoorbeeld een valutasymbool weergeven en het getal afronden op 2 decimalen.
Hiervoor gebruik je de functie Opmaak.
De volgende procedure:
| 1234567891011 | SubtestDoubleToCurrencyString()'declareer de stringvariabele'Dim strGeld als string'declareer het dubbele en vul de waarde in'Dim dblValue als dubbeldblWaarde = 44055.256'converteer het dubbele naar een string met een valutasymbool met 2 decimalen'strMoney = Format(dblValue , "$#,##0.00")'bekijk het resultaat'MsgBox strGeldEinde sub |
zou dit resultaat retourneren:
Op dezelfde manier wilt u misschien een nummer weergeven als een opgemaakt telefoonnummer.
Deze procedure:
| 1234567891011 | SubtestDoubleToPhone()'declareer de stringvariabele'Dim strTelefoon als string'declareer het dubbele en vul de waarde in'Dim dblValue als dubbeldblWaarde = 555968541'converteer het dubbele naar een string met een valutasymbool'strPhone = Formaat (dblWaarde, "(000)-000 0000")'bekijk het resultaat'MsgBox strTelefoonEinde sub |
zou dit resultaat retourneren:
