Deze zelfstudie laat zien hoe u de CDbl VBA-functie gebruikt om expressies om te zetten naar een dubbel gegevenstype.
CDbl-functie
VBA CDbl Expressie converteren naar geheel getal
De VBA CDbl-functie kan worden gebruikt om uitdrukkingen te converteren naar een dubbel gegevenstype in VBA-code.
| 123456 | Sub CDblVoorbeeld_1()MsgBox CDbl (12.345) 'Resultaat is: 12.345MsgBox CDbl(-124) 'Resultaat is: -124MsgBox CDbl(0,000034) 'Resultaat is: 0,000034MsgBox CDbl(-12.000034) 'Resultaat is: -12.000034Einde sub |
VBA CDbl String converteren naar Double
De VBA CDbl-functie kan worden gebruikt om tekenreeksen om te zetten in verdubbelingen als de tekens in de tekenreeks een betekenis hebben als getallen.
| 123456789101112131415161718 | Sub CDblExample_2()Dim StrEx As StringStrEx = "112"MsgBox CDbl(StrEx)'Resultaat is: 112StrEx = "0.0003"MsgBox CDbl(StrEx)'Resultaat is: 0,0003StrEx = "11.00002"MsgBox CDbl(StrEx)'Resultaat is: 1100002 , wordt genegeerdStrEx = "$ 112"MsgBox CDbl(StrEx)'Resultaat is: 112 $ wordt genegeerdEinde sub |
VBA-programmering | Code Generator werkt voor u!
VBA CDbl Runtime-fout 13 Type komt niet overeen
Het gebruik van de VBA CDbl-functie met tekenreeksen die niet-numerieke tekens bevatten of tekens die geen betekenis hebben in numerieke context, resulteert in een Runtime-fout '13': Type komt niet overeen.
| 1234567 | Sub CDblExample_3()'De onderstaande code zal resulteren in een ERROR-bericht'CDbl kan niet overweg met niet-numerieke tekens'Dim StrEx As StringStrEx = "Ab13"MsgBox CDbl(StrEx)Einde sub |
VBA CDbl Regionale instellingen
VBA CDbl-functie heeft een ander gedrag bij het converteren van tekenreeksen met komma of punt. Het gebruikt de regionale instellingen van het besturingssysteem voor het decimaalteken en het cijferscheidingsteken.
| 12345678910111213141516 | Sub CDblExample_4()Dim StrEx As StringStrEx = "1,9"MsgBox CDbl(StrEx)'Als Regionale instellingen , als scheidingsteken voor groepen hebben, dan'Resultaat is: 19'Als Regionale instellingen , als decimaalteken hebben, dan'Resultaat is: 1,9StrEx = "1.9"MsgBox CDbl(StrEx)'Als de regionale instellingen . als een scheidingsteken voor groepen dan'Resultaat is: 19'Als de regionale instellingen . als een decimaal scheidingsteken dan'Resultaat is: 1,9Einde sub |
VBA CDbl Booleans converteren naar verdubbelingen
VBA CDbl-functie kan booleaanse variabelen converteren naar doubles. Als de geëvalueerde uitdrukking waar is, is de resulterende dubbel -1 en als de geëvalueerde uitdrukking onwaar is, is de resulterende dubbel 0.
| 12345678910 | Sub CDblExample_5()Dim BoolEx As BooleanBoolEx = TrueMsgBox CDbl(BoolEx) 'Resultaat is: -1MsgBox CDbl(2 = 2) 'Resultaat is: -1BoolEx = FalseMsgBox CDbl(BoolEx) 'Resultaat is: 0MsgBox CDbl(1 = 2) 'Resultaat is: 0Einde sub |
Moe van het zoeken naar voorbeelden van VBA-codes? Probeer AutoMacro!
VBA CDbl Datums converteren naar verdubbelingen
VBA CDbl-functie kan een datumvariabele converteren naar een geheel getal. De geretourneerde waarde is het interne getal dat door Excel wordt gebruikt voor datumopslag, afgerond.
| 123456789101112 | Sub CDblExample_6()Dim DateEx als datumDatumEx = #2/3/1940#MsgBox CDbl(DateEx)'Resultaat is: 14644DatumEx = #8/7/1964 10:41:00 PM#MsgBox CDbl(DateEx)'Resultaat is: 23596.9451388889DatumEx = #3/7/1934 11:32:04 AM#MsgBox CDbl(DateEx)'Resultaat is: 12485.4806018519Einde sub |
