In diesem Tutorial wird gezeigt, wie Sie die CDbl-VBA-Funktion verwenden, um Ausdrücke in den Datentyp Double zu konvertieren.
CDbl-Funktion
VBA CDbl Ausdruck in Ganzzahl konvertieren
Die VBA CDbl-Funktion kann verwendet werden, um Ausdrücke innerhalb von VBA-Code in den doppelten Datentyp zu konvertieren.
| 123456 | Sub CDblExample_1()MsgBox CDbl(12.345) 'Ergebnis ist: 12.345MsgBox CDbl(-124) 'Ergebnis ist: -124MsgBox CDbl(0.000034) 'Ergebnis ist: 0.000034MsgBox CDbl(-12.000034) 'Ergebnis ist: -12.000034End Sub |
VBA CDbl wandelt String in Double um
Die VBA-Funktion CDbl kann verwendet werden, um Strings in Doubles umzuwandeln, wenn die Zeichen im String eine Bedeutung als Zahlen haben.
| 123456789101112131415161718 | Sub CDblExample_2()Dim StrEx als StringStrEx = "112"MsgBox CDbl(StrEx)'Ergebnis ist: 112StrEx = "0,0003"MsgBox CDbl(StrEx)'Ergebnis ist: 0,0003StrEx = "11,00002"MsgBox CDbl(StrEx)'Ergebnis ist: 1100002 , wird ignoriertStrEx = "112 $"MsgBox CDbl(StrEx)'Ergebnis ist: 112 $ wird ignoriertEnd Sub |
VBA-Programmierung | Code Generator arbeitet für Sie!
VBA CDbl Laufzeitfehler 13 Typkonflikt
Die Verwendung der VBA-CDbl-Funktion mit Zeichenfolgen, die nicht numerische Zeichen oder Zeichen enthalten, die im numerischen Kontext keine Bedeutung haben, führt zu einem Laufzeitfehler '13': Typkonflikt.
| 1234567 | Sub CDblExample_3()'Der folgende Code führt zu einer FEHLER-Meldung'CDbl kann nicht numerische Zeichen verarbeitenDim StrEx als StringStrEx = "Ab13"MsgBox CDbl(StrEx)End Sub |
VBA CDbl Regionale Einstellungen
Die VBA CDbl-Funktion hat ein anderes Verhalten beim Konvertieren von Zeichenfolgen mit Komma oder Punkt. Es verwendet die Ländereinstellungen des Betriebssystems für Dezimaltrennzeichen und Zifferntrennzeichen.
| 12345678910111213141516 | Sub CDblExample_4()Dim StrEx als StringStrEx = "1,9"MsgBox CDbl(StrEx)'Wenn regionale Einstellungen haben, als Gruppierungstrennzeichen, dann'Ergebnis ist: 19'Wenn regionale Einstellungen als Dezimaltrennzeichen haben, dann'Ergebnis ist: 1,9StrEx = "1,9"MsgBox CDbl(StrEx)'Wenn die Regionaleinstellungen . als Gruppierungstrennzeichen dann'Ergebnis ist: 19'Wenn die Regionaleinstellungen . als Dezimaltrennzeichen dann'Ergebnis ist: 1,9End Sub |
VBA CDbl Konvertieren von Booleans in Doubles
Die VBA CDbl-Funktion kann boolesche Variablen in Doubles umwandeln. Wenn der ausgewertete Ausdruck wahr ist, ist das resultierende Double -1 und wenn der ausgewertete Ausdruck falsch ist, ist das resultierende Double 0.
| 12345678910 | Sub CDblExample_5()Dim BoolEx As BooleanBoolEx = TrueMsgBox CDbl(BoolEx) 'Ergebnis ist: -1MsgBox CDbl(2 = 2) 'Ergebnis ist: -1BoolEx = FalschMsgBox CDbl(BoolEx) 'Ergebnis ist: 0MsgBox CDbl(1 = 2) 'Ergebnis ist: 0End Sub |
Sind Sie es leid, nach VBA-Codebeispielen zu suchen? Probieren Sie AutoMacro aus!
VBA CDbl Konvertieren von Daten in Doubles
Die VBA CDbl-Funktion kann eine Datumsvariable in eine Ganzzahl konvertieren. Der zurückgegebene Wert ist die interne Zahl, die von Excel für die Datumsspeicherung verwendet wird, gerundet.
| 123456789101112 | Sub CDblExample_6()Dim DateEx als DatumDatumEx = #2/3/1940#MsgBox CDbl(DateEx)'Ergebnis ist: 14644DateEx = #8/7/1964 10:41:00 #MsgBox CDbl(DateEx)'Ergebnis ist: 23596.9451388889DateEx = #3/7/1934 11:32:04 #MsgBox CDbl(DateEx)'Ergebnis ist: 12485.4806018519End Sub |
